Getting at Windows File Created date with VBA

N

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

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
 
S

Stefi

See FileDateTime function in VBA Help!

Regards,
Stefi


„Neal Zimm†ezt írta:
 
T

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

Neal Zimm

Thanks for the prompt response.
--
Neal Z


moon said:
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
 
N

Neal Zimm

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

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top