機能と数式 | VBA | セミナー | オンラインソフト | お問い合わせ | その他
Top > Excel > VBA > FileSystemObject

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



【書式】
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



このエントリーをはてなブックマークに追加