サブフォルダを取得する【SubFoldersプロパティ】【FileSystemObject】【ExcelVBA】

構文

Object.SubFolders

SubFoldersプロパティのサンプルコード

Public Sub sample()
    
    '■FileSystemObjectの宣言
    Dim fso As Object: Set fso = CreateObject("Scripting.FileSystemObject")
        
    '■tmp(C:\vba)内のサブフォルダを取得
    Dim tmp As String: tmp = "C:\vba"
    Dim sFolder As Object
    For Each sFolder In fso.GetFolder(tmp).SubFolders
        Debug.Print sFolder.Name
    Next
    
    '■実行例
    'C:\vba\A、C:\vba\Bと存在すれば、
    'A、Bを取得する。(Nameなので、フルパスで取得するわけではないので注意)

End Sub

注意点

• 非表示およびシステムのファイル属性が設定されたものを含め取得します。

関連記事

• ファイル名と拡張子を分けて取得する【FileSystemObject】
• パスとファイル名からフルパスを生成する【BuildPathメソッド】【FileSystemObject】
• ファイル名を取得する【GetFileNameメソッド】【FileSystemObject】
• ファイルをコピーする【CopyFileメソッド】【FileSystemObject】
• ファイルを移動する【MoveFileメソッド】【FileSystemObject】