Renaming file with today's date as part of the name

[jcash35010]

Ok, I need to copy a file or rename the file with the date as part of the name. What command can i use within my script to do this?

Thanks!

 

[AlexIT]

I also need to do this, here is what I have so far, but this isn't working for me:

Dim d
d = Now()
FileSystemObject.CopyFile "c:\test\testfile.txt", "c:\test\testfile-%d%.txt"


Any suggestions?

 

[PHV]

Try something like this:

Dim d,fso
d = Now()
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFile "c:\test\testfile.txt", "c:\test\testfile-"&d&".txt"

Hope This Help
PH.

 

[AlexIT]

PHV, that didn't run, syntax error. Ralphtrent in another post came up with this:

t = DatePart("h", time) & DatePart("n", time) & DatePart("s", time)
d = DatePart("m", date) & DatePart("d", date) & DatePart("yyyy", date)

srcFile = "vpnPO.txt"
desFile = "vpnPO_"&t&"_"&d&".txt"
Dim oFSO, getFile
Set oFSO = CreateObject("Scripting.FileSystemObject&quot
oFSO.CopyFile "c:\temp\"&srcFile,"c:\temp\"&desFile, True
Set oFSO = Nothing

That one did it for me...

 

[bn2hunt]

TRY THIS

Dim d,fso
d = REPLACE(NOW,":","&quot
Set fso = CreateObject("Scripting.FileSystemObject&quot
fso.CopyFile "c:\V7\testfile.txt", "c:\V7\testfile" & REPLACE(D,"/","&quot & ".TXT"

It didn't like the : and / in the date and time. The replace will take them out.

ddw