Hi,

You can use code as under - modify the filename with full path, as
needed.

Sub FileProps()
Dim fs
Dim dtCreated As Date, dtModified As Date, dtAccessed As Date
Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetFile("c:\Book1.xls")
dtCreated = d.DateCreated
dtModified = d.DateLastModified
dtAccessed = d.DateLastAccessed
MsgBox "Created on " & dtCreated & ", Last Modified on " & _
dtModified & ", Last Accessed on " & dtAccessed

End Sub

Sharad



*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!