指定したフォルダのファイル一覧を取得します。再帰処理でサブフォルダ内のファイル名も取得します。


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のダウンロードは こちら です。

Leave a Reply