sort data from multiple sub folders

[jeffgriffin]

Hi
I have a code that open multiple sub folders and selects different information from any excel file.
The code is

Dim fName As String
    Dim fPath As String: fPath = "e:\Departments\Test Reports\Data\"
    Dim FSO As Object: Set FSO = CreateObject("Scripting.FileSystemObject")
    Dim FLD As Object: Set FLD = FSO.GetFolder(fPath)

The folder DATA has the sub folders DATA 1 DATA 2 DATA 3 MATERIALS, all have excel files,
How can i modify the code so it does not read the folder MATERIALS ?
I have tried \data\data_? and \data\data_*

[AlphaFrog]

Maybe something like this...

    Dim fName As String
    Dim fPath As String: fPath = "e:\Departments\Test Reports\Data\"
    Dim FSO As Object: Set FSO = CreateObject("Scripting.FileSystemObject")
    Dim FLD As Object
    For Each FLD In FSO.GetFolder(fPath).Subfolders
        If FLD.Name Like "DATA*" Then
            'Do stuff here
        End If
    Next FLD