批量解压目录中的所有压缩文件

.如果真 (编辑框2.内容 ＝ “” 或 编辑框1.内容 ＝ “”)
返回 ()
.如果真结束
.计次循环首 (取数组成员数 (zip), a)
处理事件 ()
ZIP压缩1.解压 (zip [a], 编辑框2.内容)
状态条1.置文本 (0, ZIP压缩1.取进度提示 ())
.计次循环尾 ()
.计次循环首 (取数组成员数 (rar), a)
处理事件 ()
运行 (“C:\Program Files\WinRAR\rar.exe e -o+ ” ＋ rar [a] ＋ “ ” ＋ 编辑框2.内容, 假, 1)
' 运行 (“rar x -o+ ” ＋ rar [a] ＋ “ ” ＋ 编辑框2.内容, 假, 1)
.计次循环尾 ()
状态条1.置文本 (0, “解压完成”)

这个程序将解压缩该目录及其子目录下的所有压缩的压缩文件。

默认对当前批处理文件所在文件夹及子文件夹操作，也可以自定义文件夹根目录。