VBScript フォルダ内のファイル一覧取得

Dim PATH : PATH = "C:\temp\"
Dim oFS : Set oFS = CreateObject("Scripting.FileSystemObject")

Set oFOLDER = oFS.GetFolder(PATH)

For Each FILE In oFOLDER.Files
    WScript.Echo FILE.Name
Next

Set oFOLDER = Nothing
Set oFS = Nothing