新年献礼：最快文件搜索程序

liucqa

实际上dos是最快的，所以楼上代码比较好，也稳定，不会出现各种错误。

wzsy2_mrf

liucqa 发表于 2016-12-25 14:40
实际上dos是最快的，所以楼上代码比较好，也稳定，不会出现各种错误。

我的也没有什么问题，更重要的是我实际提供一种树形的通用非递归解法，对其它树形问题稍改一下即可使用，实际这个程序是我在解决另外问题时转一下过来的。

小花鹿

文件搜索，这么好的帖子，小花鹿做个记号，抽空学习

loquat

还有比cmd dir更快的？学习一下

1. Public Function 遍历文件(aPath$, aExtensionName$)
   
2. Dim ws, aNum%, arr
   
3. Set ws = CreateObject("WScript.Shell")                'Shell对象wshom.ocx，用于后台执行cmd命令
   
4. If Right(aPath, 1) <> "" Then aPath = aPath & ""
   
5. ws.Run Environ$("comspec") & " /c dir " & Chr(34) & aPath & aExtensionName & Chr(34) & " /s /b /a:-d > C:\tmpDoc.txt", 0, True    '遍历获取Word文件，并列表到临时文件，同步方式
   
6. aNum = FreeFile()                                     '空闲文件号
   
7. Open "C:\tmpDoc.txt" For Input As #aNum
   
8. arr = Split(StrConv(InputB(LOF(aNum), aNum), vbUnicode), vbCrLf)    '将遍历结果从文件读取到数组中
   
9. Close #aNum
   
10. ws.Run Environ$("comspec") & " /c del /q /s " & Chr(34) & "C:\tmpDoc.txt" & Chr(34), 0, False    '删除临时文件，异步方式
    
11. arr = Filter(arr, "$", False)                         '不包含$，即非word临时文件
    
12. ReDim Preserve arr(0 To UBound(arr) - 1)
    
13. 遍历文件 = arr
    
14. End Function

复制代码

loquat

楼上的代码论坛不让我修改了，我很无奈
上面的注释可能文不对题

cmd dir就是有点纠结
不产生临时文件就必须弹出cmd的黑框框

feisail

谢谢大师的代码。

feisail

测试搜索速度好快，秒杀。
圣诞快乐，新年快乐！

wzsy2_mrf

用dos程序是为遍历而遍历，而实际使用中经常是搜索到某一文件，然后做些什么，再按某些规则继续搜索，一般不会搜索到底，在这种情形下，dos程序几乎无用。

crazy0qwer

wzsy2_mrf 发表于 2016-12-28 19:13
用dos程序是为遍历而遍历，而实际使用中经常是搜索到某一文件，然后做些什么，再按某些规则继续搜索，一般 ...

不是没有用，而是你不会用。

wzsy2_mrf

我的程序随时可以在得到所需要信息后中断，dos下行不行呢？可以边搜索边处理，dos下行不行呢？