查看完整内容

[e=2].版本 2

.子程序 枚举目录文件

.参数 目录, 文本型

.参数 类型, 文本型, 可空, 空为搜索所有格式

.局部变量 寻找结果, 文本型

.如果真 (取文本右边 (目录, 1) ≠ “\”)

目录 ＝ 目录 ＋ “\”

.如果真结束

.如果真 (类型 ＝ “”)

类型 ＝ “*.*”

.如果真结束

寻找结果 ＝ 寻找文件 (目录 ＋ 类型, )

.判断循环首 (寻找结果 ≠ “”)

.如果真 (取文本右边 (目录 ＋ 寻找结果, 取文本长度 (目录 ＋ 寻找结果) ...