打开APP
userphoto
未登录

开通VIP,畅享免费电子书等14项超值服

开通VIP
用VB导出导入IE收藏夹
userphoto

2009.11.07

关注
 
        经常使用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企业版下调试通过。 
 
 
 
 
本站仅提供存储服务,所有内容均由用户发布,如发现有害或侵权内容,请点击举报
打开APP,阅读全文并永久保存 查看更多类似文章
猜你喜欢
类似文章
【热】打开小程序,算一算2024你的财运
VB 解决webbrowser用IE弹出新窗口问题.
VBA系列讲座(1):VBA是什么?
VB数据库编程技术
提取IE缓存中的“秘密”
使用VB6创建COM加载宏( fanjy )
VB编程中的各种对话框,你都知道吗?
更多类似文章 >>
生活服务
热点新闻
分享 收藏 导长图 关注 下载文章
绑定账号成功
后续可登录账号畅享VIP特权!
如果VIP功能使用有故障,
可点击这里联系客服!

联系客服