Тема: Есть пример переименовать файл без функции Килл, не работает, почему??
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 и по примеру Айпи тоже не получается, как быть???