?
Solved

shell.application - Temporary Internet Files  - Extracting dates

Posted on 2009-02-11
2
Medium Priority
?
526 Views
Last Modified: 2012-08-13
Need some help - I'm using the following code to extract the name of the files within the temporary internet files data.

I would also like to get access to the Expires, and other Dates as are shown when you just browse to the folder using explorer. Does anyone know the correct terms

Richard
Const TEMPORARY_INTERNET_FILES = &H20&
 
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(TEMPORARY_INTERNET_FILES)
Set objFolderItem = objFolder.Self
Wscript.Echo objFolderItem.Path
 
Set colItems = objFolder.Items
For Each objItem in colItems
    Wscript.Echo objItem.Name
		Wscript.Echo objItem.Path
		
Next

Open in new window

0
Comment
Question by:dickscode
2 Comments
 
LVL 3

Accepted Solution

by:
Angelized earned 500 total points
ID: 23611636
Think I have somthing for you ... Check this out
' List Items in the Temporary Internet Files Folder
 
Dim arrHeaders(34)
Const TEMPORARY_INTERNET_FILES = &H20&
 
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(TEMPORARY_INTERNET_FILES)
Set objFolderItem = objFolder.Self
 
For i = 0 to 33
    arrHeaders(i) = objFolder.GetDetailsOf(objFolder.Items, i)
Next
 
Wscript.Echo objFolderItem.Path
 
Set colItems = objFolder.Items
For Each objItem in colItems
    Wscript.Echo objItem.Name
    For i = 0 to 33
        Wscript.Echo i & vbtab & arrHeaders(i)  & ": " & objFolder.GetDetailsOf(objItem, i) 
    Next
    
Next

Open in new window

0
 

Author Closing Comment

by:dickscode
ID: 31550341
Thanks - hours of searching didn't find this.
0

Featured Post

Free Backup Tool for VMware and Hyper-V

Restore full virtual machine or individual guest files from 19 common file systems directly from the backup file. Schedule VM backups with PowerShell scripts. Set desired time, lean back and let the script to notify you via email upon completion.  

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Introduction During my participation as a VBScript contributor at Experts Exchange, one of the most common questions I come across is this: "I have a script that runs against only one computer. How can I make it run against a list of computers in …
This script will sweep a range of IP addresses (class c only, 255.255.255.0) and report to a log the version of office installed. What it does: 1.)      Creates log file in the directory the script is run from (if it doesn't already exist) 2.)      Sweep…
This is Part 3 in a 3-part series on Experts Exchange to discuss error handling in VBA code written for Excel. Part 1 of this series discussed basic error handling code using VBA. http://www.experts-exchange.com/videos/1478/Excel-Error-Handlin…
Screencast - Getting to Know the Pipeline

850 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question