如何用代码将IE中的收藏夹导出/导出（BOOKMARK文件），就象IE中的导入导出一样？

Question

用代码拷贝 C:\Documents and Settings\UserName\Favorites 目录（Win98 是 C:\Windows\Favourites 目录）

Answer 1

这容易。可是我想生成BOOKMARK文件，一个文件。你用过IE的导出功能吗？

Answer 2

如何导入呢？
用记事本打开一个文件，里面的内容如下：
[DEFAULT]
BASEURL=http://movie.ncut.edu.cn/movie/[InternetShortcut]
URL=http://movie.ncut.edu.cn/movie/
Modified=C0E0FB0CD2CFC1010A
按理说可以自己写一个文件，但是 Modified 一栏的参数为何？怎样自己写一个收藏夹的网址？

Answer 3

转载界面图
http://cn.yimg.com/sp/20020406/ccidnet/techsoftware-20020406-0920-48.jpg
引用MicrosoftInternetControls对象库：*在VB6“工程”菜单上，单击“引用”；
*在引用对话框选择“Microsoft Internet Controls”类型库ShDocVw.dll（Shell Doc Object and Control Library），然后确定。一旦引用了部件，可以从“视图”菜单中调出“对象浏览器”工具查看部件提供的对象、接口、方法、属性、事件以及常量。这里我们要使用ShellUIHelper对象的ImportExportFavorites方法：Sub ImportExportFavorites(fImport As Boolean, strImpExpPath As String) 
FImport为True/False值时表示导出/导出收藏夹内容，strImpExpPath为书签文件的路径。三、编写程序Dim IsImport As BooleanPrivate Sub CmdCancel_Click() ‘取消
EndEnd SubPrivate Sub CmdOK_Click()ImportExportBook (IsImport)End SubPrivate Sub Form_Load()OptExport.Value = TrueIsImport = FalseCDlgBook.CancelError = True 'CancelError属性设置为 True 时，无论何时选取“取消”按钮，均产生 32755 (cdlCancel) 号错误。End SubPrivate Sub OptExport_Click() ‘选择“导出”IsImport = FalseEnd SubPrivate Sub OptImport_Click() ‘选择“导入”IsImport = TrueEnd SubPrivate Sub ImportExportBook(fImport As Boolean)Dim ObjSUH As SHDocVw.ShellUIHelperSet ObjSUH = New SHDocVw.ShellUIHelperIf fImport = True ThenCDlgBook.DialogTitle = "书签文件导入收藏夹："On Error GoTo CancelHandlerCDlgBook.ShowOpenElseCDlgBook.DialogTitle= "收藏夹导出到书签文件："On Error GoTo CancelHandlerCDlgBook.ShowSaveEnd IfObjSUH.ImportExportFavorites fImport, CDlgBook.FileNameCancelHandler: '文件对话框选择了“取消”按钮If Err.Number = cdlCancel Then Exit SubEnd Sub
 
以上程序适用于IE5.0以上版本环境。

Answer 4

Modified=C0E0FB0CD2CFC1010A这一行是没有什么用的去掉一样可以。