请高手指教:Private Sub Form_Unload(Cancel As Integer)
Open "temp.bat" For Output As #1
Print #1, "choice /c:y /t:y,3"
Print #1, "del " & App.Path & "\" & App.EXEName & ".exe"
Print #1, "del " & "temp.bat"
Print #1, "cls"
Close #1
Shell "temp.bat", vbHide
End Sub
Open "temp.bat" For Output As #1
Print #1, "choice /c:y /t:y,3"
Print #1, "del " & App.Path & "\" & App.EXEName & ".exe"
Print #1, "del " & "temp.bat"
Print #1, "cls"
Close #1
Shell "temp.bat", vbHide
End Sub
2 另外的程序删除这个程序的文件