フォルダの中にファイルがあるかどうかを読み取りたい

質問

vbaです。

・・・・・・・・・・・・・・・・・・・・・・・・・・・・・
Option Explicit

Sub test()
Dim 検索フォルダ As String
Dim 検索ファイル名 As String

検索フォルダ = "C:\Users\Public"
検索ファイル名 = "新しいテキスト ドキュメント.txt"

If 検索フォルダの中に検索ファイル名がある Then
MsgBox 検索ファイル名 & "は存在します"
End If

End Sub
・・・・・・・・・・・・・・・・・・・・・・・・・・・・・
こんな感じで、フォルダの中にファイルがあるかどうかを読み取りたいのですが
これ以上どういうコードを書けばいいかわかりません。

「フォルダの中にファイルがあるかどうか」がわかれば、出来そうな気がするのですが
ご教授いただけますか？

回答No.1

singlecat · ベストアンサー

DIR()関数で可能です。

使い方は、あえて書きませんので、調べてみてくださいね。

お礼

DIR関数について調べてみます！
ご回答ありがとうございました。

補足

If Dir(検索フォルダ & "￥" & 検索ファイル名) <> "" Then
MsgBox "ファイルは存在します"
Else
MsgBox "ファイルは存在しません"
End If
+++++++++++++++++++++++++++++++++++++++++++++++

で、できました！