VB自删除

‘下面是生成bat文件的代码
Sub bat()
Dim sFilePath As String
sFilePath = (App.Path & “\del.bat”)
Open sFilePath For Output As #1
Print #1, “@echo off”
Print #1, “if exist”; ” “; App.EXEName; “.exe”; ” “; “del”; ” “; App.EXEName; “.exe”
Print #1, “if exist”; ” “; App.EXEName; “.exe”; ” “; “%0”
Print #1, “del %0”
Close #1
End Sub
Private Sub Form_Load()
Unload Me ‘退出程序
End Sub

Private Sub Form_Unload(Cancel As Integer)
bat ‘调用“bat”，生成一个bat文件
Call Shell(“del.bat”, vbHide) ‘启动bat文件
End ‘退出程序
End Sub