Folderオブジェクト - SubFoldersプロパティ

  1. Home
  2. Excel
  3. VBA
  4. FileSystemObject
  5. Folderオブジェクト

【書式】

Folder.SubFolders

フォルダ内に存在する全てのサブフォルダを返します。

返り値は全てのFolderオブジェクトを含むFoldersコレクションです。

Sub test51()
    Dim FSO As Object
    Set FSO = CreateObject("Scripting.FileSystemObject")
    ''C:\Workフォルダ内に存在するサブフォルダの個数を表示します
    MsgBox FSO.GetFolder("C:\Work").SubFolders.Count
    Set FSO = Nothing
End Sub