No that is the date created, as it says.

You could try DateLastModified, or DateLastAccessed.

s=f.DateLastModified

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Stephen" wrote in message
...
I'm wondering if the following code is returning the date
a file is changed to a new file name as well as the date
the file is created from a template. I have some users who
figured out they can turn off macros and bypass some
controls (at least until the end of the week) and I need
to analyze some some date values.

fandpath = Workbooks(myFile).Path & "\" & _
Workbooks(myFile).Name
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(fandpath)
s = f.DateCreated
Workbooks(MyNewFile).Worksheets(1).Cells(rCount, _
theColumn).Value = s
'the value of s is then slammed into a cell for more
'analysis

Thanks in advance!

Sn