【VBA】指定したフォルダ配下のフォルダ数を取得する

VBAコード

ここでは例として、
　・デスクトップにあるフォルダ「test」配下の
　・フォルダ数を取得
します。

Option Explicit

Sub sample()
    
    Dim targetFolder As String
    Dim fso As Object
    Dim folderCount As Long

    '対象フォルダ
    targetFolder = "C:\Users\user\Desktop\test"
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    'フォルダ数を取得
    folderCount = fso.GetFolder(targetFolder).SubFolders.Count
    
    MsgBox ("フォルダ数 : " & folderCount)
    
    '後片付け
    Set fso = Nothing
    
End Sub

実行結果

VBAで
　・指定したフォルダ配下の
　・フォルダ数を取得
できました。

参考①

フォルダ一覧の取得もできます。

詳細は以下の記事をご確認ください。

参考②

ファイル数の取得もできます。

詳細は以下の記事をご確認ください。

参考③

フォルダ数を取得する前に、対象フォルダの存在有無を確認した方が良いかもです。

フォルダの存在有無の確認方法は、以下の記事をご確認ください。

参考④

上記のコードで使用した以下の詳細は、公式サイトをご確認ください。

●「FileSystemObject」の「GetFolder」メソッド

●「Folderオブジェクト」の「SubFolders」プロパティ

●「Foldesコレクション」

●「コレクション」の「Count」プロパティ