ウェブブラウザについて

質問

vb２００５でウェブブラウザを作っています。初歩的な質問で申し訳ないのですが、IEなどでもある「お気に入りに追加」を作りたいのですが、よかったら良いサイトとかないでしょうか？よろしくお願いします。

回答No.1

yyr446

「お気に入りに追加」の処理を考えると、
ショートカットを作成して、「お気に入り」という名前のフォルダーに
追加すればよいのであるから、
http://msdn.microsoft.com/ja-jp/library/cc482755.aspx
の、「WshShortcut オブジェクトを WshUrlShortcut オブジェクト」
が参考になるかも
Dim WSh
Dim targetPath
Dim slink
Set WSh = CreateObject("WScript.Shell")
targetPath = WSh.SpecialFolders("Desktop")
Set slink = WSh.CreateShortcut(targetPath & "\***.lnk")
slink.IconLocation = "c:\***\***.ico"
slink.TargetPath = "c:\***\***.***"
slink.WorkingDirectory = targetPath
slink.Save
Set slink = Nothing
Set WSh = Nothing

'******* Sample02.vbs *******
Dim WshShell, objUrlShortCut
Set WshShell = Wscript.CreateObject("Wscript.Shell")
Set objUrlShortcut = WshShell.CreateShortcut("C:\temp\vbs\SBN-J.url")
objUrlShortcut.TargetPath = "http://www.microsoft.com/japan/sitebuilder/"
objUrlShortcut.Save
Set objUrlShortcut = Nothing
Set WshShell = Nothing
'******* Sample02.vbs End *******

お礼

返事ありがとうございました。いろいろ試してみます。

補足

あとひとつお聞きしたいのですが、フォルダに追加したテキスト（URL）をクリックした時そのページへ飛ぶようにしたいのですがどうしたらよろしいかご存知でしょうか？