Recursively Search Folders by Name

Category:

Files and Directories

Type:

Snippets

Difficulty:

Intermediate

Author:

Anonymous

Version Compatibility: Visual Basic 6

More information:

The sub included below will recursively search a folder tree for a folder of a given name.

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
' (None)

Code:

Dim path, fpath, mbs
Private Sub Form_Load()         'recursively scan all folders and sub folders
path = "C:\program files"           'put a valid path to a folder between "".
fpath = path                    'Choose a folder with a few sub folders and follow what is going
Call ShowFolderList(path)       'in single step mode.
 MsgBox mbs
End Sub
Sub ShowFolderList(folderspec) 'For this to work go to Menu:- Project-References
    Dim fs, f, f1, fc, s        'and make sure "Microsoft Scripting Runtime" is ticked.
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(folderspec)
    Set fc = f.SubFolders
        fpath1 = fpath              'this looks unnecessary...
       For Each f1 In fc
        mbs = mbs & f1.Name         'for the message box at the end
        mbs = mbs & vbCrLf          'build the string with carriage returns, linefeeds.
        fpath = fpath1
        fpath = fpath & "\" & f1.Name 'modify new path
        'Debug.Print fpath           'press ctrl G to open the immediate window and see output.
        Call ShowFolderList(fpath)  'the recursion bit
       Next
         fpath = fpath1             'set a breakpoint here to see how the paths change
 End Sub                            'each time the routine drops out