特定フォルダの中で、該当する（曖昧*）名称ファイルの重複を確認したい

Question

ワイルドカード＋dir関数を利用して、一定の条件に該当するファイルが複数存在する（重複）を検出したいと考えております。以下のようにiの結果によって、これを判断することで実装はできました。
これは実際にはDirの結果をループさせてカウントするため処理としてはあまり望ましくないのですが、結果として「曖昧な条件のファイル」（今回でいうfileNameです）が「2個以上存在するのか」という2点をクリアすれば良いのですが、ループなどさせずにより良い解決方法があれば、アドバイスを願います。

Dim folderPath As String
folderPath = aa\bb\cc

Dim fileName As String
fileName = "①*_*_*pdf"

Dim i As Long
i = 0

Dim tmp As String
    tmp = Dir(folderPath & "\" & fileName)
    Do While tmp <> ""
        i = i + 1
        tmp = Dir()
    Loop
MsgBox i ' iの個数

Answer 1

「2個以上存在するのか」でいいのなら、

    Dim tmp As String
    tmp = Dir(folderPath & "\" & fileName)
    If tmp <> "" Then tmp = Dir()

    If tmp<> "" Then MsgBox ”2個以上存在します”

Comments

[pegy]

コメントありがとうございます。
jinoji様のコメントと基本的には同じ論理なのかと思いますが、Dir()の仕様が腹落ちしなかったため、以下の通りコメントをさせていただいております。

Answer 2

たとえばこんな感じでどうでしょうか。

If Dir(folderPath & "\" & fileName) = "" Then
    MsgBox "一つもない"
ElseIf Dir() = "" Then
    MsgBox "一つしかない"
Else
    MsgBox "複数ある"
End If

Comments

[pegy]

コメントありがとうございます。
If Dir(folderPath & "\" & fileName) = "" Then
は一つも結果が得られてないで理解することができるのですが、
ElseIf Dir() = "" Then
が理解できません。ElseIfの論理できているので、その時点では少なくとも1つ以上はあるという前提かと存じますが、その上でDir()で次のファイルを探しているということは「1つ以上はあるけれども、その次が見つかりません」という意味でしょうか？

[jinoji]

そういうことです。

[pegy]

よくわかりました。ご教示いただきありがとうございます。