VBA 指定したフォルダの中にファイルがあるか否かのチェックはどうすべきですか。

Question

現在、指定ファイルにExcelファイルを作成する。という簡単な動作の処理を作成しています。

この作成時のチェックとして、その指定先のフォルダに一つでもファイルがあれば、
「ファイル内に既にファイルが存在します。
同名ファイルが存在する場合、上書されますが、処理続行してもよろしいですか？」
というメッセージを出力する予定です。

このチェックはよく行われることだと思うので、
IEでいろいろ調べてみましたが、
特定のファイルが存在するか？というチェック方法はありますが、、
指定フォルダにファイルが一つでも存在するか？というチェック方法は見受けられませんでした。
下記は特定のファイルが存在するか？のチェックです。

'FilePath = D:\Users\hogeUser\Desktop\
'FileName = hoge.xlsx

Sub checkExsitsFile (FilePath,FileName)
    If Dir(FilePath & FileName) <> "" Then
    　　MsgBox FilePath & "には" & FileName & "は存在します。"
    Else
        MsgBox FilePath & "には" & FileName & "が存在しません。"
    End If
End Sub

ただ、実際にやりたいことは、FileNameを必要としない、FilePathの直下にファイルが一つでもあるか?というチェックです。

'FilePath = D:\Users\hogeUser\Desktop\

Sub checkExsitsFile (FilePath)
    If Dir(FilePath & "*.*") <> "" Then
    　　MsgBox FilePath & "の配下にはファイルが存在します。"
    Else
        MsgBox FilePath & "の配下にはファイルが存在しません。"
    End If
End Sub

のようなチェックを入れたいのですが、この方法で正しいのか不明なため皆様の知恵を拝借したいです。

よろしくお願いいたします。

Answer 1

やってみてどうだったんですか？
手元の環境で試しましたが大丈夫そうですが、ダメなんでしょうか？
それとも方法としてこれが最適解かどうかを質問しているのでしょうか？

それから「ファイルの中にファイル」ではなく「フォルダの中にファイル」ですよね？

Comments

[King_of_Flies]

最適解かどうかを質問しているのでしょうか？
>そうですね。最適解かどうか尋ねています。
>わかりにくくてすいません。

[ttyp03]

他のやり方を調べてはいませんが、問題なく動いているならそれでOKだと思いますよ。
関数一発で判定できているのだから、他のやり方があったとしても別の関数を使うだけでステップ数に違いはないでしょうし。

[King_of_Flies]

回答ありがとうございました。

[King_of_Flies]

間違えました。