【VBA】指定したフォルダ配下のファイル一覧を取得する【Dir関数ではなくFileSystemObjectを推奨】

VBAコード(FileSystemObjectを使用【推奨】)

ここでは例として
　・FileSystemObjectを使用して
　・デスクトップにあるフォルダ「test」配下の
　・ファイル一覧を取得してシート「sample」へ出力
します。
※シート「sample」へ出力後、シート「sample」の列幅を自動調整します。

Option Explicit

Sub sample()
    
    Dim inputFolder As String
    Dim outputWs As Worksheet
    Dim outputColumn As Long
    Dim outputRow As Long
    Dim fso As Object
    Dim file As Object

    '対象フォルダ
    inputFolder = "C:\Users\user\Desktop\test"
    '出力シート
    Set outputWs = Worksheets("sample")
    '出力列
    outputColumn = 2
    '出力行
    outputRow = 2
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    'ファイル数分繰り返し
    For Each file In fso.GetFolder(inputFolder).Files
        '出力シートへファイル名を出力
        outputWs.Cells(outputRow, outputColumn) = file.Name
        '出力行をインクリメント
        outputRow = outputRow + 1
    Next
    
    '出力シートの出力列の列幅を自動調整
    outputWs.Columns(outputColumn).AutoFit
    
    '後片付け
    Set fso = Nothing
    
End Sub

実行結果

VBAで
　・指定したフォルダ配下の
　・ファイル一覧を取得
できました。

---

参考①(Dir関数を使用【非推奨】)

上記のVBAコードは「FileSystemObject」や「Fileオブジェクト」を使用してファイル一覧を取得していますが、Dir関数を使用しても同様のことができます。

他のサイトにはDir関数を使用した方法がよく記載されています。

参考②

上記のコードで使用した以下の詳細は、公式サイトをご確認ください。

●「FileSystemObject」の「GetFolder」メソッド

●「Folderオブジェクト」の「Files」プロパティ

●「Filesコレクション」

●「Fileオブジェクト」の「Name」プロパティ