Dim Fso As Object
Dim Fds As Object
Dim Fd As Object
  
'FileSystemObjectオブジェクトを生成します
Set Fso = CreateObject("Scripting.FileSystemObject")
'Cドライブのルートを対象にします
Set Fds = Fso.GetFolder("c:\")
'SubFoldersコレクション内の各フォルダ情報を列挙します
For Each Fd In Fds.SubFolders
  With Fd
    'フォルダ名
    Debug.Print .Name,
    'フォルダの最終更新日時
    Debug.Print .DateLastModified,
    '親フォルダ名
     Debug.Print .ParentFolder,
    'パス名
    Debug.Print .Path,
    'サイズ
    Debug.Print .Size,
    'ファイルの数
    Debug.Print .Files.Count,
    'サブフォルダの数
    Debug.Print .SubFolders.Count
  End With
Next Fd