枚举目录文件问题

zhenxin

怎么枚举当前目录的所有文件包括子目录的所有文件，然后把各个文件 打包成zip。期待高手！
打包的 是按照各个文件名 来打包的 比如: 你文件夹里 有 1.txt 2.txt 3.txt 然后 我要把文件夹里的 1.txt 2.txt 3.txt  分别都打包成zip 变成 1.zip 2.zip 3.zip

exit11

.版本 2
.支持库 spec
.支持库 eCompress

.子程序 _按钮1_被单击

搜索文件 (“D:\data\桌面\新建文件夹 (2)”)

.子程序 搜索文件
.参数 路径, 文本型
.局部变量 文件名, 文本型

.如果真 (取文本右边 (路径, 1) ≠ “\”)
    路径 ＝ 路径 ＋ “\”
.如果真结束

文件名 ＝ 寻找文件 (路径 ＋ “*.*”, )
.判断循环首 (文件名 ≠ “”)
    调试输出 (取文件名 (文件名), 文件名)
    ZIP压缩1.压缩 (路径 ＋ 文件名, 路径 ＋ 取文件名 (文件名) ＋ “.zip”)
    文件名 ＝ 寻找文件 (, )
.判断循环尾 ()
文件名 ＝ 寻找文件 (路径 ＋ “*.*”, #子目录)
.判断循环首 (文件名 ≠ “”)
    .如果真 (文件名 ≠ “.” 且 文件名 ≠ “..”)
        搜索文件 (路径 ＋ 文件名)
    .如果真结束
    文件名 ＝ 寻找文件 (, #子目录)
.判断循环尾 ()

.子程序 取文件名, 文本型
.参数 文件名, 文本型

.判断开始 (寻找文本 (文件名, “.”, , 假) ＝ -1)
    返回 (文件名)
.默认
    返回 (取文本中间 (文件名, 1, 寻找文本 (文件名, “.”, , 假) － 1))

.判断结束

阿亮

压缩不知道
枚举 要用递归 去查找所有文件

旋律

遍历有好多方法，但是zip压缩不会{:3_233:}

旋律

给你弄了一个，无模块！

zhangzhum

学习了，谢谢……
请旋律先生能否提供资源表中的comt和dll文件，谢谢！

旋律

就是7z。exe和7z。dll