Folder CreationDate Property
Hi,
I am trying to access the creationdate property of a folder. Currently I have a script that reports all users who have logged into a machine like this...
Set FSO = CreateObject("Scripting.FileSystemObject")
ShowSubFolders FSO.GetFolder("C:\Documents and Settings\")
Sub ShowSubFolders(Folder)
For Each SubFolder In Folder.SubFolders
strDocArray = SubFolder.Path
NewArray = Split(strDocArray, "\")
strLogin = NewArray(2)
objRecordset.AddNew
objRecordset("Key") = xxx
objRecordset("ComputerName") = strComputerName
objRecordset("Login") = strLogin
objRecordset("Date") = xxx
objRecordset("Time") = xxx
objRecordset.Update
Next
End Sub
This accesses all the folders in the documents and settings folder structure and passes the user names from those folders.
I want to get the creationdate of those same folders. Do I do something like:
strCreateDate = SubFolder.CreationDate
I have another script that gets the path and screation date, but it does every folder on the computer. That is too much of course.
Thanks,
mmcdonal
__________________
mmcdonal
Look it up at: http://wrox.books24x7.com
|