Удаление...

[Tarantul]

Как сделать так, чтобы программа удалила сама себя?

[Мамонт]

kill app.exename

[kirrun]

Format C:

Ты уверен?

А то, что "Файл занят другим процессом" тебе не пришло в голову?

Tarantul

Надо создавать бат-файл...

[kirrun]

Так... подумал я и решил избежать лишних вопросов.

Вот код завершения с удалением:

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

Open "del_me.bat" For Output As #1 'создаем bat
Print #1, "del " & Chr(34) & App.EXEName & ".exe" & Chr(34) 'учим bat удалять нас
Print #1, "del %0" 'обучаем bat искусству камикадзе
Close #1 'сохраняем то, что натварили
Shell "del_me.bat" 'запускаем того, кто нас убьет и харакири сделает
End 'принимаем снотворное чтоб не больно было...


[Tarantul]

Спасибо, работает. Вижу, основное достоинство бата в том, что он видимо ждет, пока программа закруглиться

[kirrun]

Нет. Он не ждет. Основное достоинство в том, что он не "файл занят другим процессом" и его можно удалить из самого себя.

[GM]

Для гарантии лучше сделать так:

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

Open App.Path + "\Delself.bat" For Append As #1
Print #1, "@echo off"
Print #1, ":try"
Print #1, "del " + App.EXEName + ".exe"
Print #1, "if exist " + App.EXEName + ".exe goto try"
Print #1, "del " + App.Path + "\Delself.bat"
Close №1
Shell App.Path + "\Delself.bat", vbHide
end

[kirrun]

1) App.path я и сам хотел добавить, но потом подумал, что незачем...
2)@ech off излишне тк вне зависимости от настроек это окно даже не видно
3)А представь если почему-то файл не удаляется... Эта чтука зациклится...
4)Close #1
5)А вот vbHide - Это правильно. Забыл...
6)for Append я вно не в тему... А если файл существует? и он нужный? А мы в него пишем самоудаление?

Вот только проблема с уществованием файла... Тогда так:

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

'----General Declarations
Peivate Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long
'----


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

f_name: FileName = "Del_Me" & CInt(Rnd * 9999) & ".bat"

If PathFileExists(FileName) Then GoTo f_name
Open FileName For Output As #1
Print #1, "del " & App.EXEName & ".exe"
Print #1, "del " & FileName
Close #1
Shell fileName, vbHide
End


Во как! Из маленькой простенькой программки можно сделать огромную программищу! =)

[Pocket dj]

Придурки

[kirrun]

Pocket dj

Что тебе не нравится?

[kirrun]

ЗЫ. Придурка только одного я вижу...

[Tarantul]

Еще одна проблемка...

Дело в том, что мне надо удалить папку, в которой находиться исполняемый файл.А BAT очень глючит, и либо удаляет только файл, либо вообще ничего не удаляет Подскажите какой-нить способ по надежнее

[Ennor]

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

del /F /S /Q program.exe

Кажется, этого должно хватить. Мне хватает, во всяком случае .

[JohnCR]

cmd /k rd /?

[Tarantul]

Чето у меня всеравно фигня какая то... А можно примерчик выложить, где исполняемая прога удаляет папку, в которой она находиться?

[GSerg]

http://bbs.vbstreets.ru/viewtopic.php?t=17207

[Tarantul]

http://bbs.vbstreets.ru/viewtopic.php?t=17207

Темы, которую вы запросили, не существует.

[Шурик]

фсе открываеца нормально

[Tarantul]

Не знаю, что там у кого открываецца , а у меня сначала требует ввести имя пользователя и пароль, а потом говорит, что этой темы не существует

[Tarantul]

Уже все открываеццца - глюк прошел