How do I read a file's creation date?

[yakiyak]

I'm using the NAME command in Access to move files from one directory to another and change the name. How do I tell it to include the file's creation date in the filename?
Example: I need "data.xls" to become "mmddyyy data.xls"

strFolder = "C:\my documents\"
strName = "data.xls"
strFile = strFolder & strName

Name strFile AS ???????

 

[SkipVought]

yakiyak,

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

Hope this helps

Skip,
Skip@TheOfficeExperts.com

http://www.TheOfficeExperts.com

 

[yakiyak]

Skip,
What is filespec and how do I pass the data.xls file the function? and how do I get the function to return the date when I call it? Is this how I would do it?

Call ShowFileInfo ("C:\data.xls&quot
Name strFile As s

Sub ShowFileInfo(filespec)As String
Dim fs, f, s
Set fs = CreateObject("Scripting.FileSystemObject&quot
Set f = fs.GetFile(filespec)
s = "Created: " & f.DateCreated
Return s
End Sub

Thanks for the help

 

[SkipVought]

filespec is your path and filename.

This example could be turned into a function as follows...

Function CreateDate(filespec) As String
    Dim fs, f
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFile(filespec)
    CreateDate = f.DateCreated
End Function

Hope this helps

Skip,
Skip@TheOfficeExperts.com

http://www.TheOfficeExperts.com

 

[yakiyak]

When I tried this code, I get a file not found error but the file is in the proper location (network drive). Does this code work for Windows 2000?

 

[SkipVought]

use your windows explorer address window to get the correct syntax for the path.

Skip,
Skip@TheOfficeExperts.com

http://www.TheOfficeExperts.com