How can I define a subfolder?

[Joe9238]

Hi, in this code below I have got a popup that has the user select a folder which is defined through the rest of the code as 'sFolder'. In one of the lines, you can see sFoldersubfolder = ?????. I would like to know what you would put to define each of the sub folders in 'sFolder'.

Dim sFolder As StringDim sFoldersubfolder As String


    Application.ScreenUpdating = True
    
    With Application.FileDialog(msoFileDialogFolderPicker)
        .InitialFileName = Application.DefaultFilePath & "\"
        .Title = "Please select a folder..."
        .Show
        If .SelectedItems.Count > 0 Then
            sFolder = .SelectedItems(1) & "\"
            sFoldersubfolder = ???????
        Else
            Exit Sub
        End If
    End With

Thanks in advance

 

[Fluff]

Duplicate https://www.mrexcel.com/forum/excel-questions/1056136-search-subfolders.html#post5071207

Please do not post the same question multiple times. All clarifications, follow-ups, and bumps should be posted back to the original thread.
Per forum rules, posts of a duplicate nature will be locked or deleted (rule 12 here: Forum Rules).