フォルダー内の全てのファイルを取得する

今回はフォルダ内の全てのファイルを取得する方法についてメモしておきます。

ファイルの存在確認にも使ったDir関数を使います。
パラメータを指定しなければ次ファイルを取得でき、フォルダー内の全てのファイルに対して処理を行うことができます。

実行プログラム

Sub Sample7_13_1()

    Dim strFileName  As String
    Dim i            As Integer

    i = 1
    strFileName = Dir("C:\excelmemo\*.csv", vbNormal)

    Do While strFileName <> ""

        Cells(i, 1).Value = strFileName
        i = i + 1

        strFileName = Dir()  ' 次ファイル
    Loop

End Sub

Sub Sample7_13_1()

Dim strFileName As String

Dim i As Integer

i = 1

strFileName = Dir("C:\excelmemo\*.csv", vbNormal)

Do While strFileName <> ""

Cells(i, 1).Value = strFileName

i = i + 1

strFileName = Dir() ' 次ファイル

Loop

End Sub

実行条件

実行結果