Excelで、指定したフォルダ内にあるファイル名を一括で取得するVBA。cmd不要。ファイルサイズや更新日も。

Sub GetFileNames()
    Dim folderPath As String
    Dim fileName As String
    Dim row As Integer
    
    ' フォルダ選択ダイアログを開く
    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show = False Then Exit Sub ' キャンセルされたら終了
        folderPath = .SelectedItems(1) & "\"
    End With
    
    ' アクティブシートのA列にファイル名を出力
    row = 1
    fileName = Dir(folderPath) ' フォルダ内のすべてのファイルを対象
    
    Do While fileName <> ""
        Cells(row, 1).Value = fileName
        row = row + 1
        fileName = Dir() ' 次のファイル取得
    Loop
    
    MsgBox "ファイル一覧の取得が完了しました。", vbInformation
End Sub

Sub GetFileNames_fileType()
    Dim folderPath As String
    Dim fileName As String
    Dim row As Integer
    
    ' フォルダ選択ダイアログを開く
    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show = False Then Exit Sub ' キャンセルされたら終了
        folderPath = .SelectedItems(1) & "\"
    End With
    
    ' アクティブシートのA列にファイル名を出力
    row = 1
    
    fileName = Dir(folderPath & "*.jpg") ' 例: jpgファイルのみ取得
    
    Do While fileName <> ""
        Cells(row, 1).Value = fileName
        row = row + 1
        fileName = Dir() ' 次のファイル取得
    Loop
    
    MsgBox "ファイル一覧の取得が完了しました。", vbInformation
End Sub

Sub GetFileNames_custom()
    Dim folderPath As String
    Dim fileName As String
    Dim row As Integer
    
    ' フォルダ選択ダイアログを開く
    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show = False Then Exit Sub ' キャンセルされたら終了
        folderPath = .SelectedItems(1) & "\"
    End With
    
    ' アクティブシートのA列にファイル名を出力
    row = 1
    
    fileName = Dir(folderPath) ' フォルダ内のすべてのファイルを対象
    
    Do While fileName <> ""
        Cells(row, 1).Value = fileName ' ファイル名
        Cells(row, 2).Value = FileDateTime(folderPath & fileName) ' 更新日時
        'Cells(row, 3).Value = FileLen(folderPath & fileName) ' ファイルサイズ
        Cells(row, 3).Value = Round(FileLen(folderPath & fileName) / 1024, 2) & " KB"

        row = row + 1
        fileName = Dir() ' 次のファイル取得
    Loop
    
    MsgBox "ファイル一覧の取得が完了しました。", vbInformation
End Sub