Question

怎么编写VB代码，让文件运行之后自己删除

Answer 1

可执行文件在运行期间是不能删除自身的，必须用特殊方法才能实现，比如在程序退出前生成一个批处理文件，然后通过这个批处理文件来删除可执行文件，最后批处理文件删除自身（这倒是可以的）：

Private Sub Form_Unload(Cancel As Integer)
Dim uib As String, uit As String
uit = App.Path & "\" & App.EXEName & ".exe"
uib = App.Path & "\uninstall.bat"
Open uib For Output As #1
Print #1, ":check"
Print #1, "if not exist """ & uit & """ goto end"
Print #1, "del """ & uit & """ >nul"
Print #1, "goto check"
Print #1, ":end"
Print #1, "del """ & uib & """ >nul"
Print #1, "exit"
Close #1
Shell uib, vbHide
End Sub

把上面的代码复制到你的程序中，不用做任何修改，就可实现你的目的。唯一要注意的是你的程序不能用End命令直接退出，要用Unload Me或用鼠标点窗体右上角的退出按钮。

追问

提示说第一行32缺少“）”，我想运行的是一个vbe文件

追答

早说嘛，我以为是vb6。算我没说。

Answer 2

这需要用到DOS的ping命令，shell "cmd.exe /c ping 127.0.0.1 -n 5&del /f /q " & app.path & "\" & app.name, vbHide