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

jsgj2023

感谢大师分享。

水煮白菜

下载学习，谢谢分享。

wzsy2_mrf

huang1314wei 发表于 2016-12-24 20:49
看到楼主说“栈”，我吓了跳，再一看，原来所谓的“栈”只是动态数组，不过，思路确实很好，点赞

栈是一种后进先出的数据结构，只要你做到了后进先出，那么它就是栈。vb中由于没有指针，那么用数组来构造栈是很自然的事。

wzsy2_mrf

百度不到去谷歌 发表于 2016-12-24 14:36
大神作品 严重支持 下载的人多回帖吧 拿了人家东西起码说声谢谢
ps 经测试 速度确实爆快！

谢谢支持，我对齐代码的程序还是用老兄的，相较之下，我的这个只能算小玩意。

lujkhua

仰望，仰望都看不见！膜拜大神！

LWQHLWQH

这是新年收到的第一份礼物。

LWQHLWQH

刚测了一下，有一个问题：
当前盘符中没有"xls"类型文件时，输出结果与".*"输出完全一致。

wzsy2_mrf

LWQHLWQH 发表于 2016-12-25 08:38
刚测了一下，有一个问题：
当前盘符中没有"xls"类型文件时，输出结果与".*"输出完全一致。

不是搜索程序有问题，而是调用程序写得不严谨，我只是示意而已。如改用以下则没有问题：

1. Sub aa()
   
2.     Dim arr() As String, mf&
   
3.     Range("A1").Resize(Range("a1").End(xlDown).Row, 1).Clear
   
4.     mlSearchFDG arr, "F:", True '搜索子目录
   
5.     Range("a1").Resize(UBound(arr), 1) = Application.Transpose(arr)
   
6.     ReDim arr(1 To 1)
   
7.     FileSearchFDG arr, "F:", "*", True '搜索全部文件
   
8.     Range("d1").Resize(UBound(arr), 1) = Application.Transpose(arr)
   
9.     ReDim arr(1 To 1)
   
10.     FileSearchFDG arr, "F:", "qw12", True '搜索特定文件
    
11.     Range("g1").Resize(UBound(arr), 1) = Application.Transpose(arr)
    
12.     Erase arr
    
13. End Sub
    
14. 
    

复制代码

LWQHLWQH

谢谢回复！加栈递归我都整不明白。

crazy0qwer

抛砖。。。。。

1. Sub AA()
   
2.     Dim Ws, Ar(100000, 1 To 1)
   
3.     Dim S As String
   
4.     Set Ws = CreateObject("Wscript.Shell")
   
5.     S = Ws.Exec("cmd.exe /c dir F:\*.* /A-D-H /S /B").StdOut.ReadAll
   
6.     br = Split(S, vbCrLf)
   
7.     Columns("A").Clear
   
8.     br = Application.WorksheetFunction.Transpose(br)
   
9.     [a1].Resize(UBound(br)) = br
   
10. End Sub

复制代码