copiando arquivo para pasta com nome da data atual

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set WshShell=CreateObject("Wscript.Shell")
dNow = Now
yyyy = Right(Year(dNow), 4)
mt = Right("00" &Month(dNow), 2)
dd = Right("00" &Day(dNow), 2)
NewFolder = "C:\"& dd & "-" &mt & "-" &yyyy & "\"

objFSO.CreateFolder NewFolder

WshShell.Run("xcopy.exe c:\bkp " & NewFolder & " /E")