作者：BlackFeather
欢迎使用本代码！不用管版权！
直接删除文件夹的函数只能删除空文件夹，所以删除非空文件夹的时候要写一个递归算法遍历目录，使用Findfirstfile和Findnextfile函数写了一个Function，测试很好！但是又想到一个问题，都知道传说中的autorun.inf病毒的免疫补丁是建立一个autorun.inf的只读文件夹，然后里面再用命令行md建立目录名带“.”的文件夹达到非法文件夹以防止被删除的目的，使用rd命令可以删除。后来经测试，RemoveDirectoryA函数是可以删除这种文件夹的，就是文件夹名 + .\ 就可以。后来就加了一行代码就可以删除名称带“.”的文件夹的功能。
...很多人都在问如何用VB读取CMD命令执行后的回显，这个问题用VB做确实麻烦···
这个代码是通过PIPE管道读取回显，保存为类调用即可。
类模块代码如下：
Option Explicit
'The CreatePipe function creates an anonymous pipe,
...
前些日子我的博客用的是5944的免费空间。本来以为5944的免费空间不错，虽然有时候不怎么稳定但是相对于免费空间来说已经算是不错的了，但是谁知道还没一个月呢我的空间就被删除了。图片，文章全部没了，我又没有备份，郁闷至极···后来找到了客服，给我的回话更让我吐血···
飞天马的蕾蕾(905393881) 10:37:47
免费的和VIP不是一个系统的服务器。免费的不稳定。不受我们的保护。而VIP是受我们保护的。
...