ディレクトリ内のファイル検索(Dir)

file_name = Dir(target_dir & "*.csv")
Do While file_name <> ""
    file_name = Dir() '次のファイル
Loop

※Dirはファイル名が返される。
ファイルが見つからない場合には空文字が返る。