快速查找搜索全盘文件

子目录 ＝ 寻找文件 (路径 ＋ “*.*”, #子目录)
.判断循环首 (子目录 ≠ “” 且 找到 ＝ 假)
.如果真 (取文本左边 (子目录, 1) ≠ “.”)
.如果真 (文件是否存在 (路径 ＋ 子目录 ＋ “\” ＋ 查找的文件))
编辑框2.加入文本 (路径 ＋ 子目录 ＋ “\” ＋ 查找的文件)
找到 ＝ 真 ' 本来用跳出循环（），nnd居然跳不出循环才用这招
到循环尾 ()
.如果真结束
列表 (路径 ＋ 子目录 ＋ “\”, 编辑框1.内容)
状态条1.置文本 (0, 路径 ＋ 子目录)
.如果真结束
子目录 ＝ 寻找文件 (, #子目录)
.判断循环尾 ()
.如果真 (找到)
状态条1.置文本 (0, “文件已找到！”)
返回 ()
.如果真结束
状态条1.置文本 (0, “没有找到文件！”)