Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.
HISTORY_LIST = 34 ITEM_NAME = 0 ITEM_DATE = 2 objShell = CreateObject("Shell.Application") objHistory = objShell.NameSpace(HISTORY_LIST) objHistoryFolder = objHistory.Self Message("Folder",objHistoryFolder.Path) ForEach objPeriod In objHistory.Items Message("Name: ", objPeriod.Name) If objPeriod.IsFolder Then objSiteFolder = objPeriod.GetFolder ForEach objSite In objSiteFolder.Items Message("Site",objSite.Name) If objSite.IsFolder Then objPageFolder = objSite.GetFolder ForEach objPage In objPageFolder.Items strURL = objPageFolder.GetDetailsOf(objPage,ITEM_NAME) strDateVisited = objPageFolder.GetDetailsOf(objPage,ITEM_DATE) Message("Item: " , strDateVisited:@CRLF:@CRLF:"URL: ":strURL:@CRLF:@CRLF) If IsKeyDown(@CTRL&@SHIFT) Then Break Next End If If IsKeyDown(@CTRL&@SHIFT) Then Break Next End If If IsKeyDown(@CTRL&@SHIFT) Then Break Next objPageFolder = 0 objSiteFolder = 0 objHistory = 0 objHistory = 0 objHistoryFolder = 0 ObjectClose(objShell)
Sample 2:
;This code looks at the tool tip name of the folder is to get History information from the folder name. dump_file_name = "history_dump.txt" dump_dir = "C:\" fh = FileOpen( dump_dir : dump_file_name, "WRITE" ) sh = CreateObject("Shell.Application") ssfHISTORY = 34 history = sh.NameSpace(ssfHISTORY) ;first level items a grouped by date (today, yesterday, last week) ForEach item In history.items FileWrite(fh, history.GetDetailsOf(item,-1) ) FileWrite(fh, "" ) If item.isFolder itFol = item.GetFolder ForEach item2 In itFol.items FileWrite(fh, @TAB : itFol.GetDetailsOf(item2,-1)) FileWrite(fh, "" ) If item2.isFolder itFol2 = item2.GetFolder ForEach item3 In itFol2.items url = itFol2.GetDetailsOf(item3,0) title = itFol2.GetDetailsOf(item3,1) date_vis = itFol2.GetDetailsOf(item3,2) FileWrite(fh, @TAB:@TAB:@TAB:date_vis :" : " : title) FileWrite(fh, @TAB:@TAB:@TAB: url) FileWrite(fh, "" ) Next EndIf Next FileWrite(fh, "***************************" ) FileWrite(fh, "" ) EndIf Next FileClose(fh) ;open textfile Run (dump_dir : dump_file_name,"") Exit
Article ID: W17202
File Created: 2008:03:10:10:11:46
Last Updated: 2008:03:10:10:11:46