Displaying Path & File Info

Sub ShowFileAccessInfo2()
Dim fs, d, f, s
On Error Goto ShowFileAccessInfo2_Err

Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.Getfile("C:\mytext.txt")
s = UCase(f.Path) & vbCrLf
s = s & "Created: " & f.DateCreated & vbCrLf
s = s & "Last Accessed: " & f.DateLastAccessed & vbCrLf
s = s & "Last Modified: " & f.DateLastModified & vbCrLf
s = s & "File Size : " & f.Size & " Bytes."  

MsgBox s, 0, "File Access Info"  

ShowFileAccessInfo2_Exit:
Exit Sub  

ShowFileAccessInfo2_Err:
MsgBox Err.Description,,"ShowFileAccessInfo2"
Resume ShowFileAccessInfo2_Exit
End Sub 

Courtesy: Microsoft Access Help Documents.

Next >> HOW TOs Main Page