Option Explicit
Private Sub Command1_Click()
Dim oFSO As Object
Dim oFile As Object
Dim sFile As String
sFile = "C:\My Documents\OT.xls"
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFile = oFSO.GetFile(sFile)
With oFile
Debug.Print "DateCreated", .DateCreated
Debug.Print "DateLastModified", .DateLastModified
Debug.Print "Size", .Size
Debug.Print "ShortPath", .ShortPath
End With
Set oFile = Nothing
Set oFSO = Nothing
End Sub