Excel VBA ディレクトリのファイルを繰り返し処理

Excel VBA ディレクトリのファイルを繰り返し処理

Excel VBA |

Dim d  As String
Dim f  As String

d = "c:\"
f = d & "*"

f = Dir$(f, vbNormal)
Do While (Trim$(f) <> "")
    Debug.Print f
    f = Dir$
Loop