Необходимо создать самораспаковывающийся EXE

Question

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

Любая помощь?

Answer 1

Вызовите этот файл VBScript из вашей программы

Wscript.Sleep 15000 'wait program finish running
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.GetFile("your .exe file which call this vbs file")
MyFile.Delete


Dim objFSO    'Create a File System Object
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile WScript.ScriptFullName
Set objFSO = Nothing