VBScript: フォルダ内のファイル一覧を取得する

VBScriptでフォルダ内にあるファイル一覧を取得する場合は、 Fileオブジェクトのコレクションを取得します。

FileオブジェクトのコレクションはFolderオブジェクトの Filesプロパティで取得できます。

次のサンプルプログラムはフォルダ「d:\backup」内にある ファイルの一覧を表示しています。

strPath = "d:\backup"

'ファイルシステムオブジェクト作成
Set objFS = CreateObject("Scripting.FileSystemObject")

'Folderオブジェクト作成
Set objFolder = objFS.GetFolder(strPath)

'Fileオブジェクトのコレクションをループする
For Each objFile In objFolder.Files
	
	'ファイル名を表示
	WScript.Echo objFile.Name
	
Next

ファイル一覧取得のコード解説

ファイルシステムオブジェクトのGetFolderメソッドで Folderオブジェクトを作成します。

'Folderオブジェクト作成
Set objFolder = objFS.GetFolder(strPath)

Fileオブジェクトのコレクションは、 FolderオブジェクトのFilesプロパティ「objFolder.Files」 で取得できます。

Fileオブジェクトのコレクションをループで回すことで ファイルの一覧が取得できます。

'Fileオブジェクトのコレクションをループする
For Each objFile In objFolder.Files
	
	'ファイル名を表示
	WScript.Echo objFile.Name
	
Next

ファイル数（コレクションの要素数）を知りたい場合は 次のように記述します。

WScript.Echo objFolder.Files.Count
VBScript入門