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

YAGI Hiroto (piroto@a-net.email.ne.jp)
twitter http://twitter.com/pppiroto