seme ocurre algo asi..
Código:
NombreStr = Format$(Date, "dd") & "," & Format$(Date, "mm") & "," & Format$(Date, "yyyy")
' o bien
NombreStr = Format$(Date, "ddmmyyy")
OldName = "C:\MYDIR\OLDFILE"
NewName = "C:\YOURDIR\" & NombreSrt
Rename(OldName, NewName) ' Muevo y renombro archivo
nos vemos espero te sirva el ejemplo..