1

Тема: Есть пример переименовать файл без функции Килл, не работает, почему??

Private Declare Function MoveFile Lib "kernel32.dll" Alias "MoveFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String) As Long 

Private Sub Command1_Click()
Dim retval As Long ' возвращаемое значение

retval = MoveFile("C:\1.txt", "C:\2.txt")
If retval = 1 Then
MsgBox "Успешно переименовался )"
Else
MsgBox "Не успешно переименовался )"
End If

Есть пример переименовать файл без функции Килл, не работает, почему??
Весь сыр бор из за того, что находясь в файле с именем А нужно переименовать его в Б, с Киллом не получается, ылазит ошибка 70 и по примеру Айпи тоже не получается, как быть???

2

Re: Есть пример переименовать файл без функции Килл, не работает, почему??

Сохранить как, закрыть, убить закрытый файл, открыть сохраненный:)