下面的代码演示将一个程序在执行时将自己删除。 新建一个窗体,并加一上按钮,添如下代码 Private Sub Command1_Click() KillMe End Sub Sub KillMe() Path = App.Path If Right(Path, 1) <> "\" Then Path = Path + "\" PathName = Path + App.EXEName + ".EXE" BatName = Path + "1.bat" Open BatName For Output As #1 Print #1, ":START" Print #1, "del " & PathName Print #1, "if exist " & PathName & " GOTO START" Print #1, "del " & BatName Close #1 Shell BatName, vbHide End End Sub
|