履歴フォルダ内アイテムのURLを得るには？ (ID:83628)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 イメージ的には、こんな感じですかね。 ただし、参照設定用のタイプライブラリが標準では用意されていないので、 それは別途用意する必要があります。 Dim oUrlHistoryStg As IUrlHistoryStg Dim oEnumSTATURL As IEnumSTATURL Dim udtStat As STATURL Dim Fetched As Long Set oUrlHistoryStg = New URLHistory Set oEnumSTATURL = oUrlHistoryStg.EnumUrls() 'フィルタするかどうかは任意 oEnumSTATURL.SetFilter "http", STATURL_QUERYFLAG_TOPLEVEL Do Fetched = 0 On Error Resume Next oEnumSTATURL.Next 1, udtStat, Fetched On Error GoTo 0 If Fetched <> 1 Then Exit Do End If ' 'STATURL構造体(udtStat)のメンバを取得するためのコードを記述 ' Loop Set oEnumSTATURL = Nothing Set oUrlHistoryStg = Nothing なお、STATURL構造体から取得できるのは、 ・URL(pwcsUrl) ・タイトル(pwcsTitle) ・最終訪問日時(ftLastVisited) ・最終更新日時(ftLastUpdated) ・有効期限(ftExpires) ・フラグ(dwFlags) の6項目です。