指定したフォルダのファイル一覧を取得します。再帰処理でサブフォルダ内のファイル名も取得します。
Option Explicit Private Function GET_FileList(STR_Path) Dim OBJ_FSO Dim OBJ_Folder Dim COL_SubFolder Dim COL_File Set OBJ_FSO = WScript.CreateObject("Scripting.FileSystemObject") Set OBJ_Folder = OBJ_FSO.GetFolder(STR_Path) For Each COL_File In OBJ_Folder.Files WScript.Echo COL_File.Name Next For Each COL_SubFolder In OBJ_Folder.SubFolders GET_FileList(COL_SubFolder) Next End Function
Scriptのダウンロードは こちら です。