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

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

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

VBScript（書式）

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

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

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

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

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

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