Hej!

Inte lätt att förklara men detta skriver ut alla subfoldrar till mappen Temp:

Public Sub ListFolder()
    ' Kräver referens  till Microsoft Scripting Runtime, som sätts i Verktyg/Referenser i VBA editorn
    Dim objFileSystem As New FileSystemObject
    Dim objFolderMain As folder
    Dim objSubFolder As folder
    Dim sPath As String
   
    sPath = "C:\Temp"
    
    Set objFolderMain = objFileSystem.GetFolder(sPath)
    
    For Each objSubFolder In objFolderMain.SubFolders
         Debug.Print objSubFolder.Name
    Next
   
End Sub

mvh