rootのFolderオブジェクトを取得して SubFoldersプロパティで第一階層のフォルダーのコレクションが取得できますから
これのCountプロパティを参照すれば数は取得できます
各第一階層のフォルダーオブジェクトの SubFoldersを取得してCountプロパティを参照すれば フォルダー毎の数の取得も可能ですよ
dim objRoot, objSub1
Set objRoot = FSO.GetFolder("rootのパス")
' 第一階層のフォルダー数
debug.print objRoot.subFilders.Count
for each objSub1 in objRoot.subFolders
' 第二階層のフォルダー数
debug.print objSub1.Name, objSub.subFolders.Count
Next
といった感じです
お礼
redfox63様 ありがとうございます。 無事取得する事ができました。 ほんとうにありがとうございました。 一部修正した所もありますので同じ様な疑問がある方用に 修正した所を記述しておきます。 >' 第一階層のフォルダー数 >debug.print objRoot.subFilders.Count のobjRoot.subFilders.Count を objRoot.subFolders.Countに修正 >' 第二階層のフォルダー数 >debug.print objSub1.Name, objSub.subFolders.Count のobjSub.subFolders.Count を objSub1.subFolders.Countに修正