I think you want the modified date. If yes, then see this
Debug.Print FileDateTime("C:Sample.txt")
The format of the date and time displayed is based on the locale settings of your system.
Edit
Using FileSystemObject
Option Explicit
Sub Sample()
Dim oFS As Object
Dim sFile As String
sFile = "C:MyFile.txt"
Set oFS = CreateObject("Scripting.FileSystemObject")
'~~> Created Date
Debug.Print "Created Date : "; oFS.GetFile(sFile).DateCreated
'~~> Modified Date
Debug.Print "Modified Date : "; oFS.GetFile(sFile).Datelastmodified
Set oFS = Nothing
End Sub
与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…