フォルダ内、サブフォルダ数を取得したい
特定フォルダ内でサブフォルダの数を取得したいケースがあります。
FileSystemObjectを利用すれば、簡単に処理が可能です。
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
注意点
- 非表示およびシステムのファイル属性が設定されたものを含め取得します。
コメント