Access Time of a file

[HeSaidJoe]

'File information using File Scripting Object FSO
'date created...date last modified...date last accessed 
'http:\\webhome.globalserve.net/enyaw 

Private Sub Form_Load() 

Dim sFile As String 
sFile = "c:\my documents\my file.txt" 

Dim fso As Object 
Set fso = CreateObject("Scripting.FileSystemObject") 

MsgBox "The file " & sFile & " was created on: " & fso.GetFile(sFile).DateCreated 
MsgBox "Last modification to file: " & fso.GetFile(sFile).DateLastModified 
MsgBox "Last date file was accessed: " & fso.GetFile(sFile).DateLastAccessed 

Unload Me 

End Sub