易语言递归枚举文件及目录

易语言递归枚举文件及目录

演示如何使用易语言采用递归方式枚举目录和文件，并创建文件索引，将其保存至一个文本数组。
-----代码开始-----
.子程序 创建文件索引, 整数型, 公开, 创建文件和目录搜索索引，成功返回 true(真);失败返回 false(假)
.参数 目录, 文本型, , 要创建索引的起始目录
.参数 结果列表, 文本型, 可空 数组, 保存索引结果的文本数组变量
.局部变量 临时文件名, 文本型
.如果真 (是否为空 (结果列表))
清除数组 (结果列表)
.如果真结束
目录 ＝ 选择 (取文本右边 (目录, 1) ＝ “\”, 目录, 目录 ＋ “\”)
临时文件名 ＝ 寻找文件 (目录 ＋ “*”, 16)
.判断循环首 (临时文件名 ≠ “”)
.如果真 (临时文件名 ≠ “.” 且 临时文件名 ≠ “..”)
加入成员 (临时文件结果列表, 目录 ＋ 临时文件名 ＋ “\”)
创建文件索引 (目录 ＋ 临时文件名 ＋ “\”)
.如果真结束
临时文件名 ＝ 寻找文件 (, 16)
.判断循环尾 ()
临时文件名 ＝ 寻找文件 (目录 ＋ “*”, )
.判断循环首 (临时文件名 ≠ “”)
.如果真 (临时文件名 ≠ “.” 且 临时文件名 ≠ “..”)
加入成员 (临时文件结果列表, 目录 ＋ 临时文件名)
.如果真结束
临时文件名 ＝ 寻找文件 (, )
.判断循环尾 ()
.如果真 (是否为空 (结果列表) ＝ 假)
结果列表 ＝ 临时文件结果列表
.如果真结束
返回 (取数组成员数 (结果列表))
-----代码结束-----