ファイルの検索方法について

質問

あるフォルダの中にあるファイルをすべて取得したいのですが、わかりません。
すみませんけど教えて頂けませんか？

回答No.1

imogasi · ベストアンサー

時々ある質問なんで、過去私が出した回答ですが取り急ぎ上げます。
エクセルVBAでやってますが、Cells()の２箇所だけ
VB向きに変更してもらえば、目的は達せられると思います。My　DocumentsフォルダとCSVファイルの部分も実情に
合わせてご変更・削除を。
Private Sub test01()
Dim fn As String
Dim hn As String
p01:
fn = InputBox("フォルダ名=", "フォルダ指定", "c:\My Documents\")
If fn = "end" Then Exit Sub
' fn = "c:\My Documents\"
i = 2
sdirname = Dir(fn)
Do While sdirname <> ""
If Right(sdirname, 4) = ".csv" Then
Cells(i, 1) = sdirname
hn = fn & sdirname
Cells(i, 2) = hn
i = i + 1
End If
'------
sdirname = Dir
Loop
GoTo p01
End Sub