FileSystemObject

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

フォルダ内、サブフォルダ数を取得したい

特定フォルダ内でサブフォルダの数を取得したいケースがあります。
FileSystemObjectを利用すれば、簡単に処理が可能です。

フォルダ内、サブフォルダ数を取得するサンプルコード

Public Sub sample()
    
    '■FileSystemObjectの宣言
    Dim fso As Object: Set fso = CreateObject("Scripting.FileSystemObject")
        
    '■tmp(C:\vba)内のサブフォルダ数を取得
    Dim tmp As String: tmp = "C:\vba"
    Debug.Print fso.GetFolder(tmp).SubFolders.Count '3
    
End Sub

注意点

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

関連記事

コメント

タイトルとURLをコピーしました