经常使用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企业版下调试通过。 |
|