VBA： 如何用VBA遍历文件夹(含子文件夹）里的所有文件

目录

0 原始文件

1 step1:遍历文件夹（不包含子文件）内的文件数

2 step2: 遍历文件夹内的所有子文件夹的名字

3  step3 遍历文件夹的（含子文件）内的所有文件

4 step4 遍历文件夹的（含子文件）内的所有文件夹和文件

---

0 原始文件夹和文件情况

1 step1:遍历文件夹（不包含子文件）内的文件数

• 遍历文件夹内的文件数
• 但是并不遍历子文件

Function file_dir1()fp = "C:\Users\Administrator\Desktop\ppp\*.*"fn = Dir(fp)Debug.Print fn   '避免会少第1个文件Do While fn <> ""fn = DirDebug.Print fnLoopEnd Function

2 step2: 遍历文件夹内的所有子文件夹的名字

• 遍历文件夹的所有子文件的名字
• 可以遍历所有文件夹，及其子文件夹
• 只取得文件夹的名字，不管文件

'----------------step2---------------------------------------------
Sub Folder2()Dim fso As ObjectSet fso = CreateObject("Scripting.FileSystemObject")'确定根目录ff = "C:\Users\Administrator\Desktop\ppp"'遍历根目录下的子文件夹Dim folder As Object ' 当前正在遍历的文件夹Set folder = fso.GetFolder(ff)Call SubProcessFolder2(folder)End SubSub SubProcessFolder2(folder)'子文件夹Dim subFolder As ObjectFor Each subFolder In folder.subfoldersDebug.Print subFolder.Path' 如果还有更深层次的子文件夹，则进行递归调用If subFolder.subfolders.Count > 0 ThenCall SubProcessFolder2(subFolder)End IfNext subFolder
End Sub

3  step3 遍历文件夹的（含子文件）内的所有文件

• 遍历文件夹的，且包含含子文件内
• 所有文件

'-------------step3---------------------------------------------Sub Folder3()Dim fso As ObjectSet fso = CreateObject("Scripting.FileSystemObject")'确定根目录ff = "C:\Users\Administrator\Desktop\ppp"'遍历根目录下的文件Call file3(ff)'遍历根目录下的子文件夹Dim folder As Object ' 当前正在遍历的文件夹Set folder = fso.GetFolder(ff)Call SubProcessFolder3(folder)End SubSub file3(folder)fp = folder & "\*.*"fn = Dir(fp)Do While fn <> ""Debug.Print folder & "\" & fnfn = Dir()   '这句话应该放在打印后面Loop
End SubSub SubProcessFolder3(folder)'子文件夹Dim subFolder As ObjectFor Each subFolder In folder.subfoldersCall file3(subFolder)' 如果还有更深层次的子文件夹，则进行递归调用If subFolder.subfolders.Count > 0 ThenCall SubProcessFolder3(subFolder)End IfNext subFolder
End Sub

4 step4 遍历文件夹的（含子文件）内的所有文件夹和文件

• 遍历文件夹的，且包含含子文件内
• 包含文件夹
• 也包含文件

'--------step4---------------------------------------------Sub Folder4()Dim fso As ObjectSet fso = CreateObject("Scripting.FileSystemObject")'确定根目录ff = "C:\Users\Administrator\Desktop\ppp"Debug.Print ff'遍历根目录下的文件Call file4(ff)'遍历根目录下的子文件夹Dim folder As Object ' 当前正在遍历的文件夹Set folder = fso.GetFolder(ff)Call SubProcessFolder4(folder)End SubSub file4(folder)fp = folder & "\*.*"fn = Dir(fp)Do While fn <> ""Debug.Print fn   'folder & "\" & fnfn = Dir()   '这句话应该放在打印后面Loop
End SubSub SubProcessFolder4(folder)'子文件夹Dim subFolder As ObjectFor Each subFolder In folder.subfoldersDebug.Print subFolder.PathCall file4(subFolder)' 如果还有更深层次的子文件夹，则进行递归调用If subFolder.subfolders.Count > 0 ThenCall SubProcessFolder4(subFolder)End IfNext subFolder
End Sub