用VB導入導出IE收藏夾

作者: 段鍵

經常使用IE上網沖浪的朋友，時間一長，通常在收藏夾里都積累了不少好東東。而一旦重裝系統，尤其是當同一臺機子中同時存有多個用戶配置時，手工方式備份、恢復這些內容就未免麻煩。這里利用IE5對象庫中的ShellUIHelper對象，編寫一個簡單的小程序，可以很方便的導入/導出IE收藏夾中的內容。

一、在VB6中新建工程，如圖所示，在窗體上依次設置控件：

二、引用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 Boolean
Private Sub CmdCancel_Click() ‘取消
End
End Sub
Private Sub CmdOK_Click()
ImportExportBookmark (IsImport)
End Sub
Private Sub Form_Load()
OptExport.Value = True
IsImport = False
CDlgBookmark.CancelError = True 'CancelError屬性設置為 True 時，無論何時選取“取消”按鈕，均產生 32755 (cdlCancel) 號錯誤。
End Sub
Private Sub OptExport_Click() ‘選擇“導出”
IsImport = False
End Sub
Private Sub OptImport_Click() ‘選擇“導入”
IsImport = True
End Sub
Private Sub ImportExportBookmark(fImport As Boolean)
Dim ObjSUH As SHDocVw.ShellUIHelper
Set ObjSUH = New SHDocVw.ShellUIHelper
If fImport = True Then
CDlgBookmark.DialogTitle = "書簽文件導入收藏夾："
On Error GoTo CancelHandler
CDlgBookmark.ShowOpen
Else
CDlgBookmark.DialogTitle= "收藏夾導出到書簽文件："
On Error GoTo CancelHandler
CDlgBookmark.ShowSave
End If
ObjSUH.ImportExportFavorites fImport, CDlgBookmark.FileName
CancelHandler: '文件對話框選擇了“取消”按鈕
If Err.Number = cdlCancel Then Exit Sub
End Sub

以上程序適用于IE5.0以上版本環境。

原文轉自：http://www.anti-gravitydesign.com