フォルダ内のファイル数を取得する方法

VBA で特定のフォルダ内に存在するファイルやフォルダの数を取得するには Files コレクションや Folders コレクションの Count プロパティを使用します。

VBA（書式）
1 2 3 4 5 6 7	'ファイルの数を取得（フォルダは除く）フォルダオブジェクト.Files.Count 'フォルダの数を取得フォルダオブジェクト.SubFolders.Count '上記を合算すればフォルダ内のすべてのファイルの数（フォルダ含む）を取得できます。

VBA（書式）

'ファイルの数を取得（フォルダは除く）
フォルダオブジェクト.Files.Count
 
'フォルダの数を取得
フォルダオブジェクト.SubFolders.Count
 
'上記を合算すればフォルダ内のすべてのファイルの数（フォルダ含む）を取得できます。

c:\temp フォルダ内のファイル数を取得するサンプルコードは次の通りです。

VBA（実行可能なサンプルコード）
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26	Option Explicit Sub test() Dim strTargetFolderPath Dim objFileSys Dim objFolder Dim objFile 'ファイルシステムを扱うオブジェクトを作成 Set objFileSys = CreateObject("Scripting.FileSystemObject") '調査対象のフォルダを指定する strTargetFolderPath = "c:\temp" 'フォルダオブジェクトを取得 Set objFolder = objFileSys.GetFolder(strTargetFolderPath) 'ファイルの数を表示（フォルダは除く） Debug.Print (objFolder.Files.Count) 'フォルダの数を表示 Debug.Print (objFolder.SubFolders.Count) 'ファイルとフォルダの数を表示 Debug.Print (objFolder.Files.Count + objFolder.SubFolders.Count) End Sub

VBA（実行可能なサンプルコード）

Option Explicit
 
Sub test()
    Dim strTargetFolderPath
    Dim objFileSys
    Dim objFolder
    Dim objFile
     
    'ファイルシステムを扱うオブジェクトを作成
    Set objFileSys = CreateObject("Scripting.FileSystemObject")
     
    '調査対象のフォルダを指定する
    strTargetFolderPath = "c:\temp"
     
    'フォルダオブジェクトを取得
    Set objFolder = objFileSys.GetFolder(strTargetFolderPath)
     
    'ファイルの数を表示（フォルダは除く）
    Debug.Print (objFolder.Files.Count)
     
    'フォルダの数を表示
    Debug.Print (objFolder.SubFolders.Count)
     
    'ファイルとフォルダの数を表示
    Debug.Print (objFolder.Files.Count + objFolder.SubFolders.Count)
End Sub

▲このページの一番上に戻る