Excel 2002: Show File Creation Date 2

[jcmv007]

Using: Windows XP SP1, MS-EXCEL 2002 SP1

How do I show the current file or active file's creation date. Can this be made into a function a user calls so the information is place in a cell specified by the user.

I have found the following code but do not how to get it to show in the SHEET.

Sub ShowFileInfo(filespec)
    Dim fs, f, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFile(filespec)
    s = f.DateCreated
    MsgBox s
End Sub

Thanks,


James

 

[Loomah]

Hi James
Dunno about XP but this certainly works in xl2k

ThisWorkbook.BuiltinDocumentProperties("Creation Date")

Hope this helps
Happy Friday
;-)

If a man says something and there are no women there to hear him, is he still wrong?
The faqs ma'am, just the faqs. Get the best from these forums : faq222-2244

 

[jcmv007]

Loomah

Thanks it worked great! And have a star.


James