rename a file with current YYYYMMDD in the filename 2

[jpotucek]

Let me start off by saying that I am not a VB programmer.. but this forum has helped me out before so I'm hoping that I can get some help again !!!

I need to rename a file on a daily basis so that the filename contains the current date in YYMMDD format.

my original filename is FILENAME_S.csv and I need to rename it to
NEWFILENAME_YYYYMMDD.csv

Can this be done programmatically with some basic VB code????

I need to create this in a script so that I can run it once a day via windows scheduler

any help would be greatly appreciated!

 

[PHV]

In the VBScript documentation (

http://www.microsoft.com/downloads/...8-207D-4BE1-8A76-1C4099D7BBB9&displaylang=en)

take a look at the FileSystemObject object and the Date, Right, Year, Month and Day functions.

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[jpotucek]

i came up with this.. but it is erroring out on line 1 character 12 'expected end of statement' not sure what is wrong ????

Dim myFile as String
Dim myNewFile as String
myfile = "C:\filename_s.csv"
myNewFile = "C\newfilename" & Format(Date, "yyyymmdd") & ".csv"
Name myfile As myNewFile

 

[PHV]

VBScript don't have typed variable.
Your code is VBA, not VBS.

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[mikej336]

Try something like this....

Uncle Mike



Dim file1, file2

file1 = "C:\Oldfile.txt"
file2 = "C:\newfile" & year(date) & month(date) & Day(Date) & ".txt"

Set fso = CreateObject("Scripting.FileSystemObject")

If fso.FileExists(file1) = true then
If fso.FileExists(file2) = true then
fso.DeleteFile(file2)
End if
fso.MoveFile file1, file2
'else
' msgbox "File does not exist"
End If

Set FSO = Nothing

 

[PHV]

So, mike has followed my suggestion but omitted the Right function:
file2 = "C:\newfilename" & Year(Date) & [!]Right("0" & [/!]Month(Date)[!],2)[/!] & [!]Right("0" & [/!]Day(Date)[!],2)[/!] & ".csv"

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[markdmac]

Do as PHV has suggested to get better looking output.

I hope you find this post helpful.

Regards,

Mark

Check out my scripting solutions at

http://www.thespidersparlor.com/vbscript

Work SMARTER not HARDER. The Spider's Parlor's Admin Script Pack is a collection of Administrative scripts designed to make IT Administration easier! Save time, get more work done, get the Admin Script Pack.

 

[jpotucek]

Thank you !!!! EXACTLY WHAT I NEEDED!!! One problem though. It created my filename as newfilename200757.csv should be newfilename20070507.csv ?????

 

[PHV]

Seems you haven't read my post stamped 4 May 07 15:46.

 

[jfdabiri]

phv's code would give you 2 digit month and day.

 

[jpotucek]

Thanks Guys. Worked like a charm!!! You're awesome!!!

 

[IknowMe]

Right("0" & Month(Date),2)

Never seen that method of pading before but I plan on using it. Have a star from me PHV.

Wow, I'm having amnesia and deja vu at the same time.
I think I've forgotten this before.