速度一流，包含子目录，自动刹车。
.版本 2
.支持库 iext
.支持库 shell
.程序集 窗口程序集1
.程序集变量 停止搜索, 逻辑型
.程序集变量 子目录搜索, 逻辑型
.程序集变量 全路径显示, 逻辑型
.子程序 __启动窗口_创建完毕
停止搜索 ＝ 假
全路径显示 ＝ 假
子目录搜索 ＝ 假
.子程序 _按钮1_被单击
停止搜索 ＝ 假
按钮1.禁止 ＝ 真
选择框_子.禁止 ＝ 真
选择框_全.禁止 ＝ 真
编辑框1.内容 ＝ “”
.如果真 (删首尾空 (编辑框2.内容) ＝ “”)
取路径_ ()
按钮1.禁止 ＝ 假
选择框_子.禁止 ＝ 假
选择框_全.禁止 ＝ 假
返回 ()
.如果真结束
文件路径 ＝ 编辑框2.内容
搜索文件夹 (文件路径)
.如果真 (子目录搜索 ＝ 真)
搜索子文件夹 (文件路径)
.如果真结束
按钮1.禁止 ＝ 假
选择框_子.禁止 ＝ 假
选择框_全.禁止 ＝ 假
.子程序 搜索子文件夹
.参数 目录, 文本型
.局部变量 临时目录, 文本型
.局部变量 子文件夹, 文本型
.如果真 (取文本右边 (目录, 1) ≠ “\”)
目录 ＝ 目录 ＋ “\”
.如果真结束
临时目录 ＝ 寻找文件 (目录 ＋ “*”, 16)
.判断循环首 (临时目录 ≠ “”)
处理事件 ()
.如果真 (临时目录 ≠ “.” 且 临时目录 ≠ “..”)
处理事件 ()
子文件夹 ＝ 目录 ＋ 临时目录
输出调试文本 (子文件夹)
搜索文件夹 (子文件夹)
搜索子文件夹 (子文件夹)
.如果真结束
临时目录 ＝ 寻找文件 (, 16)
.如果真 (停止搜索 ＝ 真)
跳出循环 ()
.如果真结束
.判断循环尾 ()
.子程序 搜索文件夹
.参数 目录, 文本型
.局部变量 temp, 文本型
.如果真 (取文本右边 (目录, 1) ≠ “\”)
目录 ＝ 目录 ＋ “\”
.如果真结束
输出调试文本 (目录)
temp ＝ 寻找文件 (目录 ＋ “*”, )
.判断开始 (全路径显示 ＝ 真)
.判断循环首 (temp ≠ “”)
处理事件 ()
.如果真 (temp ≠ “.” 且 temp ≠ “..”)
处理事件 ()
透明标签1.标题 ＝ “当前文件:” ＋ temp
编辑框1.加入文本 (目录 ＋ temp ＋ #换行符)
.如果真结束
temp ＝ 寻找文件 (, )
.如果真 (停止搜索 ＝ 真)
跳出循环 ()
.如果真结束
.判断循环尾 ()
.默认
.判断循环首 (temp ≠ “”)
处理事件 ()
.如果真 (temp ≠ “.” 且 temp ≠ “..”)
处理事件 ()
透明标签1.标题 ＝ “当前文件:” ＋ temp
编辑框1.加入文本 (temp ＋ #换行符)
.如果真结束
temp ＝ 寻找文件 (, )
.如果真 (停止搜索 ＝ 真)
跳出循环 ()
.如果真结束
.判断循环尾 ()
.判断结束
.子程序 取路径_
.局部变量 temp, 文本型
temp ＝ 浏览文件夹 (“请选择您要搜索的文件夹:”, )
输出调试文本 (temp)
编辑框2.内容 ＝ temp
.子程序 _按钮3_被单击
.如果 (置剪辑板文本 (编辑框1.内容))
信息框 (“复制文本成功！”, #信息图标, )
.否则
信息框 (“复制文本失败！”, #信息图标, )
.如果结束
.子程序 _按钮2_被单击
取路径_ ()
.子程序 _按钮4_被单击
停止搜索 ＝ 真
.子程序 __启动窗口_可否被关闭, 逻辑型
停止搜索 ＝ 真
.子程序 _选择框_子_被单击
.判断开始 (选择框_子.选中 ＝ 真)
子目录搜索 ＝ 真
.默认
子目录搜索 ＝ 假
.判断结束
.子程序 _选择框_全_被单击
.判断开始 (选择框_全.选中 ＝ 真)
全路径显示 ＝ 真
.默认
全路径显示 ＝ 假
.判断结束
.子程序 __启动窗口_尺寸被改变
透明标签1.顶边 ＝ 状态条1.顶边 ＋ 2
