Const ssfHISTORY = 34
Dim Shell As Object = CreateObject("Shell.Application")
Dim History As Object = Shell.NameSpace(ssfHISTORY)
 
' first level items a grouped by date 
' (today, yesterday, last week) 
For Each Item As Object In History.Items
  Debug.Print(History.GetDetailsOf(Item, -1))
  Debug.Print("")
  If Item.isFolder Then
    Dim Folder As Object = Item.GetFolder
    For Each Item2 As Object In Folder.Items
      Debug.Print(vbTab & Folder.GetDetailsOf(Item2, -1))
      Debug.Print("")
      If Item2.isFolder Then
        Dim Folder2 As Object = Item2.GetFolder
        For Each item3 As Object In Folder2.Items
          Dim url As String = Folder2.GetDetailsOf(item3, 0)
          Dim title As String = Folder2.GetDetailsOf(item3, 1)
          Dim date_vis As String = Folder2.GetDetailsOf(item3, 2)
          Debug.Print(Strings.StrDup(3, vbTab) & date_vis & " : " & title)
          Debug.Print(Strings.StrDup(3, vbTab) & url)
          Debug.Print("")
        Next
      End If
    Next
    Debug.Print(Strings.StrDup(80, "*"))
    Debug.Print("")
  End If
Next

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de