VB 一个简单且暴力的卸载思路

虽然简单，但是还是要记录一下。
尝试用VB做一个卸载程序，但是由于卸载程序正在运行，无法删除自身就很难受。

这时候我就想到了 CMD.EXE

代码如下：
Option Explicit
Private Sub uninstall_DeleteFolder()
Shell "cmd.exe /c timeout /t 3 /nobreak & rd /s /q " & App.Path, vbHide
End '或者用贴吧dalao之前发的Shutdown函数
End Sub
Private Sub Form_Unload(Cancel As Integer)
Call uninstall_DeleteFolder
End Sub