スキルアップ・問題解決なら、モーグにおまかせ！

●概要●
FileSystemObjectオブジェクトのGetFolderメソッドを利用して取得できるFolderオブジェクトのSubFoldersプロパティを利用すると、指定したフォルダ内のサブフォルダの集合であるFoldersコレクションへの参照を取得することができます。このFoldersコレクションのCountプロパティを利用すると、サブフォルダの数を取得することができます。

　構文 オブジェクト.SubFolders
　設定項目　　　　内容
　オブジェクト　　Folderオブジェクト

次のサンプルは、現在作業中のブックがあるフォルダのサブフォルダの数をイミディエイトウィンドウに表示します。

●サンプル●

Sub Sample()
    Dim TempDir As String
    Dim TempCount As Long
    
    TempDir = ThisWorkbook.Path
    
    With CreateObject("Scripting.FileSystemObject")
        TempCount = .GetFolder(TempDir).SubFolders.Count
    End With
    
    Debug.Print TempCount
End Sub