Почему файл не удаляется?

[HugoFlex]

Почему после копирование файла, я не могу удалить его?

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

Private Sub Form_Load()
    Dim dest As String
    Dim src As String
       
           
    If App.Path <> Environ("windir") Then
       
        src = App.Path & IIf(Right(App.Path, 1) = "\", "", "\") & App.EXEName & ".exe"
        dest = Environ("windir") & "\" & "Project1"
       
        MsgBox src
        FileCopy src, dest
       Kill src           
    End If
   
    Set Reg = CreateObject("WScript.Shell")
    Reg.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\Project", Environ("windir") & "\system32\" & "Project1" & ".exe"

End Sub

[Ennor]

Это ты сам себя копируешь? Ясен пень, ничего не получится - ты пытаешься потом сам себя удалить, но ты же в момент попытки удаления запущен, ergo, файл заблокирован на запись/удаление. И пока этот процесс не завершится, удалить файл будет нельзя.

[HugoFlex]

А как можно сделать это по другому?

[EvilCoder]

<DELETED>

[HugoFlex]

Там же нет вопроса о удаление после копирования

[HugoFlex]

А я хочу удалит после копирования оператором Kill

[Max!]

Используй с прогой бат файл каторый удалит прогу после её закрытия !

[HugoFlex]

А сам бат мне потом как убрать

[GM]

Вот так:

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

@echo off
:try
del 1.exe
if exist 1.exe goto try
del SelfDelete.bat


[Andrey Fedorov]

Да нафига там бат-файл-то?

Программа копирует себя в нужный каталог. Потом запускает новую копию с командной строкой в которой указан путь к старой копии и команда на удаление - новая копия и удалит старую...

[EvilCoder]

<DELETED>