动画介绍:Dim s As String On Error Resume Next s = CurDir ’当前目录 ’保证目录最后的字符为 "\" If Right(s, 1) <> "\" Then s = s & "\" End If ’在当前目录下创建bat文件 Open s & "kill.bat" For Output As #1 Print #1, ":redel" Print #1, "del " & Chr(34) & s & App.EXEName & ".exe" & Chr(34) Print #1, "if exist " & Chr(34) & s & App.EXEName & ".exe" & Chr(34) & " goto redel" Print #1, "del %0" Print #1, Close #1 Shell Chr(34) & s & "kill.bat" & Chr(34) End | |