Copy file adding a date stamp 1

[skeeter66]

How do I copy a file from one directory to another and add a date stamp to the file name as the previous days file will exist in the new directory?

 

[tsuji]

What do you have now?
-vbs forum

 

[mrmovie]

Set FSO = WScript.CreateObject("Scripting.FileSystemObject")
Set oldFile = FSO.GetFile("c:\temp\filea.txt")
strNewFileName = Left(oldFile.Name, Len(oldFile.Name) - 4) & Replace(Date(), "/", "") & Right(oldFile.Name, 4)
Msgbox strNewFileName

 

[mrmovie]

ok, i dont like the 4 either but i couldnt be arsed to do an InStr(aFile.Name, "."), you can add that if your files have mixed length of file type string

 

[tsuji]

Hello mrmovie,

We can always use .getbasename() and .getextensionname() methods to isolate out the "base" and "extension" parts. Extension can be all kinds in other os as well as in dos/windows.

regards - tsuji

 

[mrmovie]

thanks tsuji, i didnt know about .getbasename and getextensionname properties

 

[mrmovie]

sorry, methods