VBSにてIEの履歴のURLを取得する方法について

質問

タイトル通りの質問なのですが、これは可能なことでしょうか？

できる場合は、IEの履歴が入ってるフォルダにアクセス？して、
そこから指定のURLを、変数に入れるという形になるのでしょうか？

ご回答のほどよろしくお願いいたします。

回答No.2

watabe007 · ベストアンサー

こちらの環境 WindowsXP IE7 では以下のコードで取得できていますが
【ユーザー名】の箇所は、貴方のPCのユーザー名を記入してください。

Dim shell
Dim f,f2,f3
Dim i,i2,i3
Dim msg
Set shell = CreateObject("Shell.Application")
Set f = shell.NameSpace("C:\Documents and Settings\【ユーザー名】\Local Settings\History")
For Each i In f.Items
　　msg = i.Name & vbCrLf
　　Set f2 = i.GetFolder
　　For Each i2 In f2.Items
　　　　msg = msg & i2.Name & vbCrLf
　　　　Set f3 = i2.GetFolder
　　　　For Each i3 In f3.Items
　　　　　　msg = msg & f3.GetDetailsOf(i3, 0) & vbTab & f3.GetDetailsOf(i3, 1) & vbTab & f3.GetDetailsOf(i3, 2) & vbCrLf
　　　　Next
　　Next
Next
MsgBox msg

お礼

無事解決いたしました。
ご丁寧な回答ありがとうございました。

回答No.1

watabe007

'http://okwave.jp/qa/q3088176.html
こちらのが、そのまま使えそうですね

For Each i In f.Items
　　msg = i.Name & vbCrLf
　　Set f2 = i.GetFolder
　　For Each i2 In f2.Items
　　　　msg = msg & i2.Name & vbCrLf
　　　　Set f3 = i2.GetFolder
　　　　For Each i3 In f3.Items
　　　　　　msg = msg & f3.GetDetailsOf(i3, 0) & vbTab & f3.GetDetailsOf(i3, 1) & vbTab & f3.GetDetailsOf(i3, 2) & vbCrLf
　　　　Next
　　Next
Next
MsgBox msg

お礼

早速のご回答ありがとうございます。

URLを参考にしてみたのですが、
私の知識ではほとんど理解できませんでした。

VBSのことをほんのかじった程度の知識しかないのですが、
これはVBAでできることに当たるのでしょうか？

それとCopyFolderメソッドなど、あのあたりを使ってフォルダ見て、
そのフォルダの中のURLを、Instrなんかで検索して、
見つけたURLを変数にいれたいなーぐらいの気持ちでいたのですが、
こんな簡単済むことでは無いのでしょうか？

言葉足らず知識足らずで本当に申し訳ありません。
どうかご回答のほどよろしくお願いいたします。