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