ZIP压缩解压工具带进度条

ZIP压缩解压工具带进度条例子。
没什么好说的，可以解压和压缩，选择目录即可
易语言自带，就加了个进度条。
.支持库 eCompress

a ＝ 文件夹浏览 (“请选择需要压缩文件或文件夹”, 真)
.如果真 (a ＝ “”)
返回 ()
.如果真结束
通用对话框1.类型 ＝ 1
通用对话框1.文件名 ＝ 取文本右边 (a, 取文本长度 (a) － 倒找文本 (a, “\”, , 假)) ＋ “.zip”
.如果真 (通用对话框1.打开 () ＝ 假)
返回 ()
.如果真结束
ZIP压缩1.压缩 (a, 通用对话框1.文件名)