Use the filesystemobject:


Public Function GetDateModified(ByVal strFileName As String) As Date

Dim fso, f

Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile(strFileName)

GetDateModified = f.DateLastModified

Set f = Nothing
Set fso = Nothing

End Function



"Neal Zimm" schreef in bericht
...

In my app I use this slightly modified, (from a recorded macro) code
to save a workbook and create the standard backup
"Backup of ????????????.xlk" file name.

Application.DisplayAlerts = False
ActiveWorkbook.SaveAs FileName:=FullNa, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=True
Application.DisplayAlerts = True

In the open event, if the "Backup of " workbook is opened, I'd like to
show the DATE and TIME the backup was made. I don't know how to get at the
windows 'file modified' or created time stamp.

If someone could provide some code to get at this date, I'd appreciate
it. The FullNa var above contains the full path and the workbook name
of the original and my testing show the backup goes to the same folder.

In the app, I have a hidden worksheet, (DataStore) that holds
other indicative data about the workbook. If I can't "get at" the windows
date, is it a bad idea to store the Now time in my DataStore ?

I use a function I develped to search the DataStore and retrieve values
based on a home-grown 'data-key'


Thanks,
Neal Z.
--