Thursday, June 09, 2011

VBScript Convert Date to String(text) / rename folder to foldername+Date

Dim MyDate
MyDate = Replace(Date, "/", "")

On error resume next
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.MoveFolder "C:\test" , "C:\test" & Mydate

No comments :

Post a comment