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