[お気に入りをエクスポートする]

InternetExplorer のお気に入りをファイルに出力します。

【ソースコード】

[tips0164.vbs]
Option Explicit
On Error Resume Next

Dim objFav      ' お気に入り情報
Dim strFile     ' 保存ファイル名

strFile = "C:\Temp\Favorites.html"
Set objFav = WScript.CreateObject("Shell.UIHelper")
If Err.Number = 0 Then
    objFav.ImportExportFavorites False, strFile
Else
    WScript.Echo "エラー：" & Err.Description
End If
Set objFav = Nothing