!!!Excel VBA ディレクトリのファイルを繰り返し処理
[Excel VBA]{{category 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