VBScript ファイル一覧サンプルコード

Dim oFS, oFolder, oFile
Dim PATH
Dim MSG

' フォルダパスを指定
PATH = ".\"

' FileSystemObjectを作成
Set oFS = CreateObject("Scripting.FileSystemObject")

' フォルダオブジェクトを取得
Set oFolder = oFS.GetFolder(PATH)

' ファイル一覧を表示
For Each oFile In oFolder.Files
	MSG = MSG & oFile.Name & vbCrLf
Next

WScript.Echo MSG

' オブジェクトを解放
Set oFile = Nothing
Set oFolder = Nothing
Set oFS = Nothing