用VB导出导入IE收藏夹

来源:百度文库 编辑:神马文学网 时间:2024/04/26 09:00:09
本文来自:http://blog.csdn.net/beingstudio/archive/2007/02/12/1508209.aspx         经常使用IE的朋友,在收藏夹中积累了大量的网址,在重装系统或进行多用户配置时,手工进行备份或恢复收藏夹操作较为麻烦。可以用VB编制一个简单的IE收藏夹管理程序,自动实现导入和导出收藏夹内容的操作。
        在VB6中新建工程,在窗体上放置两个按钮,其caption属性分别设为“导入”和“导出”,一个通用对话框命名为“CDlog”。单击VB6“工程/引用”菜单项,在“引用”对话框选择“Microsoft Internet Controls”类型库,然后确定即可。
代码如下:
Option Explicit
    Private Sub ImportExportBookmark(I As Boolean)
    Dim ObjSUH As SHDocVw.ShellUIHelper
    Set ObjSUH = New SHDocVw.ShellUIHelper
    If I = True Then
    CDlog.DialogTitle = "请选择导入收藏夹的书签文件:"
    On Error GoTo CancelHandler
    CDlog.ShowOpen
    Else
    CDlog.DialogTitle = "请选择导出收藏夹的书签文件:"
    On Error GoTo CancelHandler
    CDlog.ShowSave
    End If
    ObjSUH.ImportExportFavorites I, CDlog.FileName
    '在文件对话框中选择“取消”按钮
CancelHandler:
    If Err.Number = cdlCancel Then Exit Sub
    End Sub
Private Sub Command1_Click()
ImportExportBookmark (False)
End Sub
Private Sub Command2_Click()
ImportExportBookmark (True)
End Sub
代码输入完毕,按F5运行,现在只要通过“导入”和“导出”按钮就可以轻松实现对IE收藏夹的导入和导出操作了。本程序在Windows 98 SE和VB6.0企业版下调试通过。