如何用VB实现自删除,我要知道原理!

问题描述：

请说明原理,及每句代码的意思

问题解答：

直接del就ok了

Shell "cmd /c del " & App.EXEName & ".exe"
End

原理：因为shell是异步执行的，只管shell，不管成功失败，shell的程序运行状态如何，它都不管，shell过直接就执行它的下一句代码，这里写end，程序就退出了，而这时shell的程序尚在启动中，所以看似先删除后退出是行不通的，然而事实上等同于先退出后删除，所以直接这样就可以做到删除自身的目的

'原理：调用批处理文件删除自己
Private Sub Command1_Click()
Open App.Path & "\DelMe.bat" For Output As #1 '创建一个批处理文件并往里买那些东西
Print #1, "cs " & App.Path & "\" '把路径切换到当前文件夹
Print #1, "del " & App.EXEName & ".exe" '删除程序
Print #1, "del " & "DelMe.bat" '删除批处理文件
Close #1 '关闭批处理文件
Shell App.Path & "\DelMe.bat" '执行批处理文件
End '结束自己
End Sub