Option Explicit

Private mobjFSO As New FileSystemObject

Private Sub CommandButton1_Click()
    Dim objFolder As Folder
    
    Set objFolder = mobjFSO.GetFolder("C:\")
    GetSubFolders objFolder.Path
End Sub

Private Sub GetSubFolders(ByVal pstrFolder As String)
    
    Dim objFolder As Folder
    
    On Error Resume Next
    
    For Each objFolder In mobjFSO.GetFolder(pstrFolder).SubFolders
        Debug.Print objFolder.Path
        GetSubFolders objFolder.Path
    Next objFolder

End Sub

Option Explicit

Private mobjFSO As New FileSystemObject
Private Const MY_ROOT As String = "G:\"
Private Const MY_DCM_File As String = "DCM File"

Private Sub CommandButton1_Click()
    GetSubFolders MY_ROOT
End Sub

Private Sub GetSubFolders(ByVal pstrFolder As String)
    
    Dim objFolder As Folder
    

    On Error Resume Next

    
    If pstrFolder = MY_ROOT Then
        Set objFolder = mobjFSO.GetFolder(pstrFolder)
        GetMyFiles objFolder
    End If
    

    For Each objFolder In mobjFSO.GetFolder(pstrFolder).SubFolders
        GetMyFiles objFolder
        GetSubFolders objFolder.Path
    Next objFolder

End Sub

Private Sub GetMyFiles(ByRef ioobjFolder As Folder)
    Dim objFile As File

    
    For Each objFile In ioobjFolder.Files
        If objFile.Type = MY_DCM_File Then
            Debug.Print objFile.Path
        End If
    Next objFile

End Sub

            Debug.Print objFile.Path
            Exit For