Questions And Answers

More Tutorials

VBA Folder Recursion

Early Bound (with a reference to Microsoft Scripting Runtime)

Sub EnumerateFilesAndFolders( _
 FolderPath As String, _
 Optional MaxDepth As Long = -1, _
 Optional CurrentDepth As Long = 0, _
 Optional Indentation As Long = 2)

 Dim FSO As Scripting.FileSystemObject
 Set FSO = New Scripting.FileSystemObject

 'Check the folder exists
 If FSO.FolderExists(FolderPath) Then
 Dim fldr As Scripting.Folder
 Set fldr = FSO.GetFolder(FolderPath)

 'Output the starting directory path
 If CurrentDepth = 0 Then
 Debug.Print fldr.Path
 End If

 'Enumerate the subfolders
 Dim subFldr As Scripting.Folder
 For Each subFldr In fldr.SubFolders
 Debug.Print Space$((CurrentDepth + 1) * Indentation) & subFldr.Name
 If CurrentDepth < MaxDepth Or MaxDepth = -1 Then
 'Recursively call EnumerateFilesAndFolders
 EnumerateFilesAndFolders subFldr.Path, MaxDepth, CurrentDepth + 1, Indentation
 End If
 Next subFldr

 'Enumerate the files
 Dim fil As Scripting.File
 For Each fil In fldr.Files
 Debug.Print Space$((CurrentDepth + 1) * Indentation) & fil.Name
 Next fil
 End If
End Sub


In this page (written and validated by ) you learned about VBA Folder Recursion . What's Next? If you are interested in completing VBA tutorial, your next topic will be learning about: VBA Events.

Incorrect info or code snippet? We take very seriously the accuracy of the information provided on our website. We also make sure to test all snippets and examples provided for each section. If you find any incorrect information, please send us an email about the issue:

Share On:

Mockstacks was launched to help beginners learn programming languages; the site is optimized with no Ads as, Ads might slow down the performance. We also don't track any personal information; we also don't collect any kind of data unless the user provided us a corrected information. Almost all examples have been tested. Tutorials, references, and examples are constantly reviewed to avoid errors, but we cannot warrant full correctness of all content. By using, you agree to have read and accepted our terms of use, cookies and privacy policy.