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