全盘快速搜索文件工具源码支持模糊搜索

所有驱动器 ＝ 取驱动器列表 (1)
.计次循环首 (取数组成员数 (所有驱动器), i)
搜索路径框.加入项目 (所有驱动器 [i] ＋ “\”, )
.计次循环尾 ()
搜索路径框.加入项目 (“全盘搜索”, )
搜索路径框.现行选中项 ＝ 0
添加提示 (搜索内容框.取窗口句柄 (), “如果寻找文件需要带后缀，例如：图片.jpg ，否则作为目录搜索”, 假, 假)
添加提示 (搜索过程框.取窗口句柄 (), “单击复制目录，双击打开目录”, 假, 假)
添加提示 (搜索按钮.取窗口句柄 (), “Ctrl+点击鼠标为搜索所有文件”, 假, 假)


.子程序 _搜索按钮_被单击
.局部变量 i, 整数型

是否结束 ＝ 假
搜索过程框.全部删除 ()
' 初始化变量值及列表框
.如果 (搜索按钮.标题 ＝ “搜索”)
搜索按钮.标题 ＝ “停止”
耗时 ＝ 取启动时间 ()
.如果 (搜索内容框.内容 ＝ “”)
状态条.置文本 (0, “取出所有目录...”)
搜索方式 ＝ “搜索目录”
.否则
搜索方式 ＝ “搜索文件”
.如果结束
.如果真 (搜索所有文件 ＝ 真) ' 如果取出所有文件，则不需要搜索内容框内容
状态条.置文本 (0, “取出所有文件...”)
搜索方式 ＝ “搜索目录” ' 先取出目录，再取出目录内所有文件
.如果真结束
.如果 (搜索路径框.内容 ＝ “全盘搜索”)
.计次循环首 (取数组成员数 (所有驱动器), i)
重置索引 ＝ 真
.如果 (模糊搜索选择框.选中 ＝ 真)
开始搜索_模糊 (所有驱动器 [i] ＋ “\”, 搜索内容框.内容)
.否则
开始搜索_精准 (所有驱动器 [i] ＋ “\”, 搜索内容框.内容)
.如果结束

.计次循环尾 ()
.否则
重置索引 ＝ 真
.如果 (模糊搜索选择框.选中 ＝ 真)
开始搜索_模糊 (搜索路径框.内容, 搜索内容框.内容)
.否则
开始搜索_精准 (搜索路径框.内容, 搜索内容框.内容)
.如果结束

.如果结束
耗时 ＝ 取启动时间 () － 耗时
.如果 (是否结束 ＝ 真)
搜索过程框.全部删除 ()
状态条.置文本 (0, “”)
.否则
.如果 (搜索内容框.内容 ＝ “”)
状态条.置文本 (0, “获取完成，共 ” ＋ 到文本 (搜索过程框.取表项数 ()) ＋ “ 个文件夹 耗时 ” ＋ 到文本 (四舍五入 (耗时 ÷ 1000, 2)) ＋ “ 秒”)
.否则
.如果 (搜索过程框.取表项数 () ＞ 0)
状态条.置文本 (0, “搜索完成，共 ” ＋ 到文本 (搜索过程框.取表项数 ()) ＋ “ 个文件 耗时 ” ＋ 到文本 (四舍五入 (耗时 ÷ 1000, 2)) ＋ “ 秒”)
.否则
状态条.置文本 (0, “未找到文件 耗时 ” ＋ 到文本 (四舍五入 (耗时 ÷ 1000, 2)) ＋ “ 秒”)
.如果结束

.如果结束
.如果真 (搜索所有文件 ＝ 真)
状态条.置文本 (0, “获取完成，共 ” ＋ 到文本 (搜索过程框.取表项数 ()) ＋ “ 个文件 耗时 ” ＋ 到文本 (四舍五入 (耗时 ÷ 1000, 2)) ＋ “ 秒”)
.如果真结束

.如果结束

搜索按钮.标题 ＝ “搜索”
.否则
状态条.置文本 (0, “正在停止...”)
搜索按钮.标题 ＝ “搜索”
是否结束 ＝ 真