Ни метод FileSystemObject.MoveFile ни Name sFileName As sNewFileName не работают:
Вариант 2
Код: Выделить всё
sFileName = "C:\тест.xls" 'имя исходного файла
sNewFileName = "D:\тест.xls" 'имя файла для переименования
If Dir(sFileName, 16) = "" Then MsgBox "Нет такого файла", vbCritical, "Ошибка": Exit Sub
Name sFileName As sNewFileName 'переименовываем файл
Код: Выделить всё
sFileName = "C:\тест.xls" 'имя исходного файла
sNewFileName = "D:\тест.xls" 'имя файла для переименования
If Dir(sFileName, 16) = "" Then MsgBox "Нет такого файла", vbCritical, "Ошибка": Exit Sub
'перемещаем файл
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile(sFileName)
objFile.Move sNewFileName