フォルダ内のサブフォルダ一覧を出力するプログラム

Sub フォルダ内のサブフォルダ一覧を取得する() 
Dim objFso As Object
Set objFso = CreateObject("Scripting.FileSystemObject") 

Dim objFolder As Object
Set objFolder = objFso.GetFolder(ThisWorkbook.Path) 

Dim f As Object
For Each f In objFolder.SubFolders
    Debug.Print f.Name
Next f
 
Set objFso = Nothing
 
End Sub