[お気に入りをインポートする]

ファイルの内容を InternetExplorer のお気に入りに追加します。
同じ名前のお気に入りがあるときは、無視されます。

【ソースコード】

[tips0165.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 True, strFile
Else
    WScript.Echo "エラー：" & Err.Description
End If
Set objFav = Nothing