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

[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

[pashulka]

Код: Выделить всё

sFileName = "C:\тест.xls"    'имя исходного файла
sNewFileName = "D:\тест.xls" 'имя файла для переименования

If Dir(sFileName) = "" Then MsgBox "Нет такого файла", vbCritical, "Ошибка": Exit Sub
If Dir(sNewFileName) <> "" Then Kill sNewFileName
 
Name sFileName As sNewFileName

[jaroslav]

Спасибо, pashulka