List files sub-folders - selective

I know there are a few ways to list files in a selected folder and all it's sub-folders (see below for example).

Can you selectively process folders?
In my case:
- Main folder is chosen.
- Level 2. Look only in selected folders (yellow colour). Don't list files though.
- Level 3. Look in all folders (green colour). List all files in each folder.
- Level 4+. No.

I don't know how to tell the macro to list files only in Level 3.

Untitled.png

Sub MainList()
    Set Folder = Application.FileDialog(msoFileDialogFolderPicker)
    If Folder.Show <> -1 Then Exit Sub
    xDir = Folder.SelectedItems(1)
    Call ListFilesInFolder(xDir, True)
End Sub

Sub ListFilesInFolder(ByVal xFolderName As String, ByVal xIsSubfolders As Boolean)
    Dim xFileSystemObject As Object
    Dim xFolder As Object
    Dim xSubFolder As Object
    Dim xFile As Object
    Dim rowIndex As Long
    Set xFileSystemObject = CreateObject("Scripting.FileSystemObject")
    Set xFolder = xFileSystemObject.GetFolder(xFolderName)
    rowIndex = Application.ActiveSheet.Range("A65536").End(xlUp).Row + 1
    For Each xFile In xFolder.Files
      Application.ActiveSheet.Cells(rowIndex, 1).Formula = xFile.Name
      rowIndex = rowIndex + 1
    Next xFile
    If xIsSubfolders Then
      For Each xSubFolder In xFolder.SubFolders
        ListFilesInFolder xSubFolder.Path, True
      Next xSubFolder
    End If
    Set xFile = Nothing
    Set xFolder = Nothing
    Set xFileSystemObject = Nothing
End Sub

You could add an extra parameter to the ListFilesInFolder subroutine which is an integer which shows the current level which is being trawled. Logic inside the subroutine could work off this parameter. When calling the subroutine, the parameter would be set to one greater than the value of that parameter in the calling instance.

Thanks I'll try that.
Would it stop the macro looking at folders past that level though?

This is very good actually.
Thanks for posting.

Sure, no problems.