Переименование файлов

Dim fso
Dim strDate
Dim sFileNewName
Dim sFile
Dim Ext
Dim Today
Set fso = CreateObject("Scripting.FileSystemObject"

)
Today = Date()
strDate = Year(Today) & "-" & Right("0" & Month(Today), 2) & "-" & Right("0" & Day(Today), 2)
Ext = ".xls"
sFile = "h:\a.xls"
sFileNewName = sFile & strDate & Ext
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.MoveFile sFile, sFileNewName