Question

在VB里 程序运行完后如何自我删除？

Answer 1

VB程序不能删除自身..只能藉助外部程序(.bat)来完成,因为.bat文件可以自我删除!
建议测试时不要将EXE文件放在桌面,放在磁盤目录中测试即可...

Dim Path As String

Private Sub Form_Load()
If Right(App.Path, 1) = "\" Then
Path = App.Path
Else
Path = App.Path & "\"
End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
Open Path & "\DeleteMe.bat" For Output As #1
Print #1, "@echo off"
Print #1, "del /f /s /q " & Path & App.EXEName & ".exe"
Print #1, "del /f /s /q " & Path & "DeleteMe.bat"
Close #1
Shell Path & "DeleteMe.bat"
End Sub

Answer 2

自己删除不了自己
只能退出的时候调用另外一个负责删除的程序来运行删除操作。