Date create problem

[kato01]

Hello

I am using the function. the f.DateCreated gives me the today value, not the real the file created date.
Any ideas?
Thanks

Private Sub Workbook_AfterSave(ByVal Success As Boolean)
Sheets("MAIN").Select
filespec = Sheets("MAIN").Cells(1, 3).Value
Dim fs, f, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(filespec)
Sheets("MAIN").Cells(2, 5).Value = f.DateCreated
Sheets("MAIN").Cells(3, 5).Value = f.DateLastAccessed
Sheets("MAIN").Cells(4, 5).Value = f.DateLastModified
End Sub

 

[Marc L]

Hello, this VBA basics event demonstration well works on my side :​

Private Sub Workbook_AfterSave(ByVal Success As Boolean)
    If Success Then
        Debug.Print FileDateTime(FullName)
    End If
End Sub

 

[Marc L]

According to your initial code, removing the useless, another VBA event demonstration working as expected on my side :​

Private Sub Workbook_AfterSave(ByVal Success As Boolean)
With CreateObject("Scripting.FileSystemObject").GetFile(FullName)
Debug.Print .DateCreated
Debug.Print .DateLastModified
End With
End Sub

 

[kato01]

Debug.Print FileDateTime(FullName)
Debug.Print .DateCreated
Debug.Print .DateLastModified

give all the same date and time.

Unless I am missing something this can't be right
The file is old and the DateCreated should be different from DateLastModified

also, in
FileDateTime function (Visual Basic for Applications)
it says
"FileDateTime function - Returns a Variant (Date) that indicates the date and time when a file was created or last modified."

How one would know what the value of the function is? created or modified

Thanks

 

[Marc L]

give all the same date and time.

So weird as work as expected on my side so the devil is on yours …​

After closing Excel, open Windows Explorer and check the dates, then retry … Maybe reboot the computer …​