VBでフォルダ内のファイル名一覧を取得

Dim path As String
path = "C:\test"

Dim fileName As String
fileName = Dir(path & "\*.*", vbNormal)

Do Until fileName = ""
    Debug.Print fileName
    fileName = Dir
Loop