查找目录下的所有文件

.版本 2
.支持库 spec

.子程序 查找目录下的所有文件, 文本型
.参数 文件目录, 文本型
.局部变量 文件名, 文本型
.局部变量 文件列表, 文本型
.局部变量 结果, 文本型

.如果真 (取文本右边 (文件目录, 1) ≠ “\”)
    文件目录 ＝ 文件目录 ＋ “\”
.如果真结束
文件列表 ＝ “”
文件名 ＝ 寻找文件 (文件目录 ＋ “*.*”, 1 ＋ 2 ＋ 4 ＋ 16 ＋ 32)
.判断循环首 (文件名 ≠ “”)

    ' 过滤掉这两个无关结果
    .如果真 (文件名 ＝ “.” 或 文件名 ＝ “..”)
        文件名 ＝ 寻找文件 (, 1 ＋ 2 ＋ 4 ＋ 16 ＋ 32)
        到循环尾 ()
    .如果真结束
    ' 遍历子目录下面的文件
    .如果真 (取文件属性 (文件目录 ＋ 文件名) ＝ #子目录)
        结果 ＝ 查找目录下的所有文件 (文件目录 ＋ 文件名)
        调试输出 (文件目录 ＋ 文件名)
        文件列表 ＝ 文件列表 ＋ 结果
        文件名 ＝ 寻找文件 (, 1 ＋ 2 ＋ 4 ＋ 16 ＋ 32)
        到循环尾 ()
    .如果真结束

    文件列表 ＝ 文件列表 ＋ “ ” ＋ #引号 ＋ 文件目录 ＋ 文件名 ＋ #引号
    文件名 ＝ 寻找文件 (, 1 ＋ 2 ＋ 4 ＋ 16 ＋ 32)
.判断循环尾 ()
返回 (文件列表)

• “G:\易语言源码\文本转url\temp”
• “G:\易语言源码\文本转url\自定义文件”
• “ “G:\易语言源码\文本转url\temp\temp – 副本.tmp” “G:\易语言源码\文本转url\temp\temp.tmp” “G:\易语言源码\文本转url\temp\链接.jpg” “G:\易语言源码\文本转url\z.7z” “G:\易语言源码\文本转url\文本转URL.bak” “G:\易语言源码\文本转url\文本转URL.e””