перемещение файла с заменой

[Jaroslav]

Всем привет. Задача такая: нужно переместить файл с диска C на диск D с заменой файла на диске D. Имя файла, например, тест.xls
Ни метод 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 'переименовываем файл

Вариант 1

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

[Казанский]

Попробуйте сначала скопировать, потом удалить.

[Jaroslav]

Спасибо. Наверное, сначала нужно удалить файл с диска D, а потом переместить