Getting at Windows File Created date with VBA

[Neal Zimm]

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.
--

 

[moon]

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

 

[Stefi]

See FileDateTime function in VBA Help!

Regards,
Stefi


„Neal Zimm†ezt írta:

 

[Tom Ogilvy]

I would guess both the methods suggested will not give you the time of the
last save since that is reset when the file is opened. If so, then I don't
see any problem with putting a hard coded date and time in your hidden sheet
just before you save it.

 

[Neal Zimm]

Thanks for the prompt response.
--
Neal Z

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]

Thanks for the prompt response. On something like this, I agree that I'm more
comfortable with it under "my" control.