【ExcelVBA】フォルダ直下のファイルリストの取得

ExcelVBAで指定したフォルダ直下にあるファイルの一覧を取得する方法をご紹介したいと思います。

ソースコード
実行結果

ソースコード

サンプルのソースコードになります。
実行すると「C:\workspace\ExcelVBA\Sample\」フォルダ直下にあるファイルの一覧を取得します。
出力結果は、シート名が「Sheet1」のシートに出力されます。

今回使用している「Dir関数」ですが、使用方法に１つ注意があり、指定するパスの末尾に「\」を付ける必要があります。

Public Sub GetFileList()

    Dim buf As String, row As Long
    
    buf = Dir("C:\workspace\ExcelVBA\Sample\")
    
    Do While buf <> ""
        row = row + 1
        Sheets("Sheet1").Cells(row, 1) = buf
        buf = Dir()
    Loop
    
End Sub

リンク

実行結果

以下がサンプルの実行結果になります。