【VBScript】特定のフォルダ内のフォルダ数を取得する

VBScriptでは「FileSystemObject」を使用することで様々なファイル操作を行えます。
ここでは、特定のフォルダ配下に存在するフォルダ数を取得する方法を解説します。

以下がサンプルのソースコードになります。
処理の流れとしては、ファイルシステムオブジェクトとフォルダオブジェクトを作成します。
そして、「フォルダオブジェクト.SubFolders.Count」と記述することで、フォルダ数を取得できます。

Option Explicit

' 検索対象のフォルダのパス
Dim targetPath
targetPath = "C:\workspace\VBScript"

' ファイルシステムオブジェクトの作成
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")

' フォルダオブジェクトの作成
Dim folder
Set folder = fso.GetFolder(targetPath)

' フォルダ数の取得及び表示
MsgBox(folder.SubFolders.Count)

' ファイルシステムオブジェクトの破棄
Set fso = Nothing

同様の記述で、ファイル数も取得することが可能で、こちらの記事にまとめています。