告别残留，VB6程序执行完后自动卸载背后的秘密技术

昨天我们讲了VB中 Shell 函数的用法，“于炳芳”朋友后台给我提议“Shell explorer.exe ”的参数还可以这样用：

运行效果：

于是我又查了相关资料，发现还有其他的参数：

图自csdn老陈的博客

这种用法我第一次听说，涨知识了，感谢“于炳芳”

感谢每一位给我提意见和建议的朋友，你们都是我的老师

今天我们来说一说，利用Shell函数和批处理文件(.bat)来实现删除程序本身的功能。

为什么要删除程序本身？实际应用中确实有这个需要，比如最常见的卸载程序，卸载程序本身是一个可执行文件（exe），卸载的功能是删除这个程序所带来的所有文件，包括文件目录，注册表信息，程序注册的控件等等，当上面的项目都删除掉，就剩下卸载程序本身了，而且是打开状态，除非关闭卸载程序，然后手动删除，显然这样做不人性化，也不符合用户的使用要求。如果程序能够自己删除掉自己那该多好啊，下面我们就来实现这个效果。

原理

我们知道用DOS下删除文件的命令是“del”，用法是del 文件路径，比如我们要删除C盘根目录下的1.txt文件，我可以这样：

我们前面讲过VB读写txt文件（点此查看），我们换个思路，把 dos删除命令加上本程序的路径和程序名称保存为后缀名为.bat，然后再执行这个批处理文件不就可以了吗？

测试

假如程序路径在C盘根目录，程序名称是“测试.exe”，我们就用代码写一个字符串并保存为批处理文件，这个文件写在哪里都行，我们为了方便，也将这个批处理文件写在C盘根目录：

VB如何读写txt文件请看这里（VB 读写txt文件）

我们运行程序并测试批处理文件的删除效果：

成功生成批处理文件并且删除效果不错，但是也有两个问题：

1，批处理文件执行完毕以后还留在硬盘中，不雅。

2，我们知道程序路径是C：\测试.exe，如果程序不是这个路径怎么办呢？总不能要求用户必须把程序放入你指定的目录吧。

第一个问题好解决，我们有一个批处理命令是“del %0”，在批处理最后一行加上这句命令，批处理就会删除自身。我们做个测试：

所以我们多声明一个变量，存放删除批处理本身的字符串即可。

第一个问题解决了，第二个问题怎么办呢？如何知道程序的动态路径？

我们用App.Path和App.EXEName这两个函数（我们下节课详细讲解这两个函数的用法）：

然后我们看一下生成的批处理文件并运行，看看效果如何：

成功！

我们用再加上Shell函数来测试一下：

程序效果：

删！除！不！了！！

怎么回事？是因为程序还在运行，批处理也没有办法删除，我们就这样放弃吗？当然不是，我们开通脑筋，前面学过的窗体的QueryUnload事件,介绍了这是窗体卸载之前的事件，我们在这个事件中运行批处理，等批处理运行的时候，程序已经关闭，是不是能完成我们的要求呢？

再试试：

既然在窗体的卸载前执行，我们按钮的单击事件就得写

Unload Form1

这里不能用End，如果用End 程序直接结束，不会执行Form_QueryUnload事件

最后我们再试一下：

成功了！