Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Rhinorhino on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
File date??? 1
- Thread starter Denaeghel
- Start date
-
1
- #2
JohnYingling
Programmer
Use the FileSystemObject
Code:
Dim objFs as scripting.FileSystemObject
Dim objFolder as scripting.Folder
Dim objFiles as scripting.Files
Set objfs = CreateObject("Scripting.Dictionary")
Set objFolder = objfs.GetFolder(strFoldername)
Set objFiles = objFolder.Files
For each objFile in objFiles
... = objfile.DateCreated
... = objFile.DateModified
... = objFile.DateLastAccessed
Next- Status
