跟我学 【喜迎2015立春】遍历文件夹(含子文件夹)方法 ABC

jiangdong110

好东西！谢谢香川整理！

loquat

1. Enum aSearchType
   
2.     aSearchTypeFolder = 0
   
3.     aSearchTypeFile = 1
   
4.     aSearchTypeAll = 2
   
5. End Enum
   
6. 
   
7. Function mySearch(aPath$, Optional searchTraversal As Boolean = True, Optional searchType As aSearchType = aSearchTypeFile) As String()
   
8. '参数1：遍历目录全路径
   
9. '参数2：是否搜索子目录
   
10. '参数3：搜索文件、目录或者全部
    
11. Dim aNum&, cmdStr$, folder$, aTemp$
    
12. folder = """" & aPath & """"
    
13. cmdStr = Environ$("comspec") & " /c dir " & folder   '初始化字串
    
14. If searchTraversal Then cmdStr = cmdStr & " /s"      '定义是否遍历
    
15. aTemp = Mid(aPath, InStrRev(aPath, "") + 1)         '获取最后一个""后的内容
    
16. If Left(aTemp, 2) = "*." Then searchType = aSearchTypeFile
    
17. If searchType = aSearchTypeFile Then                 '定义搜索文件、目录还是全部
    
18.     cmdStr = cmdStr & " /a:-d /b"
    
19. ElseIf searchType = aSearchTypeFolder Then
    
20.     cmdStr = cmdStr & " /a:d /b"
    
21. ElseIf searchType = aSearchTypeAll Then
    
22.     cmdStr = cmdStr & " /b"
    
23. End If
    
24. cmdStr = cmdStr & " > C:\aTemp.txt"
    
25. With CreateObject("WScript.Shell")
    
26.        .Run cmdStr, 0, True
    
27. End With
    
28. aNum = FreeFile
    
29. Open "C:\aTemp.txt" For Input As #aNum
    
30.     mySearch = Split(StrConv(InputB(LOF(aNum), aNum), vbUnicode), vbCrLf)
    
31. Close #aNum
    
32. End Function

复制代码

loquat

香川群子 发表于 2015-2-4 12:52
最后，作为本帖的特色，介绍使用VBA语句直接调用Dos中Dir命令来搜寻文件名的方法：呵呵，Dos命令不仅简洁， ...

小弟整理了调用cmd的代码附上，调用相对简单吧

cwlchen

刚开始学习VBA，暂时还没弄懂，先收藏

ak47ok

香川群子 发表于 2015-2-4 12:52
最后，作为本帖的特色，介绍使用VBA语句直接调用Dos中Dir命令来搜寻文件名的方法：呵呵，Dos命令不仅简洁， ...

请教老师：
直接调用Dos中Dir命令来搜寻文件名，如何才能不搜索该文件夹所含子文件夹内的所有文件的含路径全名？谢谢！

loquat

ak47ok 发表于 2015-4-30 10:20
请教老师：
直接调用Dos中Dir命令来搜寻文件名，如何才能不搜索该文件夹所含子文件夹内的所有文件的含路 ...

去除/s就可以，看132楼

ak47ok

loquat 发表于 2015-4-30 11:51
去除/s就可以，看132楼

我一向用这个，可能速度慢点
My_Path = [b1] & "\"
Range("a:a") = ""
    MyFilename = Dir(My_Path & "*.xl*")
    Do While MyFilename <> ""
       Range("a" & [a65536].End(3).Row + 1) = MyFilename

        MyFilename = Dir
    Loop

平平仄仄。

很好的帖子，学习学习，每天进步

沂河77

收藏先，还在学习中。

黑石老大

学习了，谢谢楼主