PDA

View Full Version : file created date



tommy1234
02-06-2009, 06:48 PM
Hello
I want to compare between 2 files by the date they were created and separate the month from the created date.

Thank you

mdmackillop
02-06-2009, 09:22 PM
Sub ShowFileInfo()
Dim fs, f, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile("C:\AAA\Example.xls")
s = "Created: " & Format(f.DateCreated, "MMMM")
MsgBox s
End Sub