超快全盘文件搜索工具源码 秒级搜索硬盘后缀目录

.子程序 枚举单目录, , , 缺点，没法高进度
.参数 路径_关键词
.局部变量 文件名, 文本型
.局部变量 路_关, 文本型, , "0"
.局部变量 HD, 整数型
.局部变量 e, 文本型
' 延时 (50)
路_关 ＝ 分割文本 (指针到文本 (路径_关键词), #分割, 2)
.如果真 (取数组成员数 (路_关) ≠ 2)  ' 不是 下面就自动过滤不执行了
    返回 ()
.如果真结束
.如果真 (取文本右边 (路_关 [1], 1) ≠ “\”)
    路_关 [1] ＝ 路_关 [1] ＋ “\”  ' 补齐
.如果真结束
文件名 ＝ 寻找文件 (路_关 [1] ＋ “*”, 1 ＋ 2 ＋ 4 ＋ 16 ＋ 32)
.判断循环首 (文件名 ≠ “”)
    延时 (1)  ' 数量不好说，高兴的时候可以搜到很多 不高兴 就少了一些。希望你们看看修复
    .如果真 (文件名 ≠ “.” 且 文件名 ≠ “..”)  ' 过滤上级目录初始目录操作   意思就是 其中一个为假  返回为假  2个为真 才返回真
        延时 (1)  ' 数量不好说，高兴的时候可以搜到很多 不高兴 就少了一些。希望你们看看修复
        .如果 (取文件属性 (路_关 [1] ＋ 文件名) ＝ #子目录)  ' 子目录
            e ＝ 路_关 [1] ＋ 文件名 ＋ #分割 ＋ 路_关 [2]  ' 临时
            启动线程 (&枚举单目录, 取变量数据地址 (e), HD)  ' 多线程继续寻找
            关闭线程句柄 (HD)
        .否则
            ' 调试输出 (路_关 [1] ＋ 文件名)
            .如果真 (寻找文本 (文件名, 路_关 [2], , 假) ≠ -1)  ' 寻找关键词    不等于 -1 表示找到 有这个关键词    我估计速度或者存在遗漏是这里的问题，哎~实在是不知道了
                列表框1.加入项目 (路_关 [1] ＋ 文件名, )
                重画 ()
                ' tt ＝ tt ＋ 1
                ' 调试输出 (路_关 [1] ＋ 文件名)
            .如果真结束
        .如果结束
    .如果真结束
    文件名 ＝ 寻找文件 (, 1 ＋ 2 ＋ 4 ＋ 16 ＋ 32)
.判断循环尾 ()
' --------------感觉加了这个 没用 就放到这里吧
.' 判断循环首 (取线程数量 () ＞ 1000)  ' 意思就是如果是机械硬盘反应慢 启动线程超过1000容易崩溃所以这里就循环判断 直到少于1000继续循环
    ' 调试输出 (“数量”, 取线程数量 ())
    .' 如果真 (GetInputState () ≠ 0)
        ' 处理事件 ()
    .如果真结束
.' 判断循环尾 ()