This may or may not work. Try:

'The following uses some of the FSO File's properties
'to display information about a file.

Private Sub displayFileInfo(ByVal fileName As String)
   Dim fso As New FileSystemObject
   Dim fileSpec As File
   Dim strInfo As String
   Set fileSpec = fso.GetFile(fileName)
   strInfo = fileSpec.Name & vbCrLf
   strInfo = strInfo & "Created: "
   strInfo = strInfo & fileSpec.DateCreated & vbCrLf
   strInfo = strInfo & "Last Accessed: "
   strInfo = strInfo & fileSpec.DateLastAccessed & vbCrLf
   strInfo = strInfo & "Last Modified: "
   strInfo = strInfo & fileSpec.DateLastModified
   MsgBox strInfo, vbInformation, "File Information"
   Set fileSpec = Nothing
End Sub

jmonty