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


この記事はプロモーションを含みます。

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

ソースコード

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

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

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

実行結果

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

コメント

タイトルとURLをコピーしました