寻找系统所有文件工具，子程序递归调用

寻找系统所有文件工具，子程序递归调用开源。
.如果真 (取文本右边 (路径, 1) ≠ “\”)
路径 ＝ 路径 ＋ “\”
.如果真结束
处理事件 ()
文件名 ＝ 寻找文件 (路径 ＋ “*.*”, )
.判断循环首 (文件名 ≠ “”)
.判断循环首 (按钮1.标题 ＝ “继续”)
延迟 (100)
.判断循环尾 ()
列表框1.加入项目 (路径 ＋ 文件名, )
列表框1.置顶端可见项目 (列表框1.取项目数 () － 3)
计数 ＝ 计数 ＋ 1
文件名 ＝ 寻找文件 (, )
标签1.标题 ＝ “共找到” ＋ 到文本 (计数) ＋ “个文件”
.判断循环尾 ()
文件名 ＝ 寻找文件 (路径 ＋ “*.*”, #子目录)
.判断循环首 (文件名 ≠ “”)
.如果真 (文件名 ≠ “.” 且 文件名 ≠ “..”)
遍历文件 (路径 ＋ 文件名)
.如果真结束
文件名 ＝ 寻找文件 (, #子目录)
.判断循环尾 ()