VBS,Save file name from the date

[G21]

HI ,
Need a help. Im looking fo r a VBS script which can make a copy of file X.csv to X_MMDDDYY.csv


RGDS,
G

 

[VoG]

Is the file open or closed?

 

[G21]

HI VOG ,
i was was planning to run the script when file is open. But i can run the script when its closed too.

RGDS,
G

 

[VoG]

Try like this with the file closed

Sub RenCSV()
Dim oldName As String
Dim newName As String
oldName = "c:\temp\X.csv"
newName = "c:\temp\X_" & Format(Date, "mmddyy") & ".csv"
Name oldFile As newFile
End Sub

 

[VoG]

Oops!

Sub RenCSV()
Dim oldName As String
Dim newName As String
oldName = "c:\temp\X.csv"
newName = "c:\temp\X_" & Format(Date, "mmddyy") & ".csv"
Name oldName As newName
End Sub

 

[G21]

HI VOG,
its giving below mention script error.. any idea ?

Script :xxx.vbs
Line :2
Char :13
Error :Expected end of statement
Code :800A0401
Source :Microsoft VBScript Compilation error

RGDS,
G

 

[VoG]

That is VBA, not VBS. The code goes in a regular module in Excel.

 

[Norie]

This should work but might not give you the exact format you want.

Dim fso

Set fso = CreateObject("Scripting.FileSystemObject")
 
oldName ="c:\X.csv"
 
newName = "c:\X_" & month(Date) & day(date) & Year(date)& ".csv"
 
fso.MoveFile oldname, newname

There is no Format function in VBS, there is a FormatDateTime but it only gives you 4 options for the format and I'm not sure any are suitable for filenames.

 

[G21]

HI VOG,
Noted. Its working. It renames the file, So i took a copy & then applied this .

HI Norie ,
It gives an error in Line 9 , Char 1...

Thanks for the support...

RGDS,
G

 

[Norie]

What error?

Do you want VBS script or VBA code?