VBA Dir関数でフォルダ内のファイルを取得する

よくやる処理だけど、全然おぼえられないので写経する。

Office TANAKA - Excel VBAファイルの操作[ファイルの一覧を取得する]

Sub GetFiles()
    Dim buf As String
    Dim c As Long: c = 0
    Dim fs() As String

    'hoge以下にあるファイル一覧を取得したい
    Const Path As String = "D:\buf\"
    buf = Dir(Path & "*")
    Do While buf <> ""
        ReDim Preserve fs(c) As String
        fs(c) = buf
        c = c + 1
        buf = Dir()
    Loop

    Dim i
    For i = LBound(fs) To UBound(fs)
        Debug.Print fs(i)
    Next
End Sub