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

2023年2月4日VBScript

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

フォルダ内のファイル一覧を取得する方法です。

実行例では、ファイル数分メッセージボックスが表示されます。適宜変更をお願いします。

'フォルダ内のファイル一覧を取得する
Sub getFolderFileList(folderPath)
    Dim fso
    Set fso = WScript.CreateObject("Scripting.FileSystemObject")
    FindFolder fso.GetFolder(folderPath)
End Sub

'ファイル一覧を表示する（サブフォルダも再帰する）
Sub FindFolder(ByVal objMainFolder)
    Dim objSubFolder
    Dim objFile
    'フォルダがあれば再帰
    For Each objSubFolder In objMainFolder.SubFolders
        FindFolder objSubFolder
    Next
    'フォルダの中のファイル情報を表示
    For Each objFile In objMainFolder.files
        'フォルダの中のファイル名を表示する(ファイルの数だけ表示されるため注意)
        WScript.Echo objFile.Path
    Next
End Sub

'実行例
getFolderFileList("C:\test1")