Dir()関数でファイルを捜査する場合で複数条件をしたいする場合

Question

Dir()関数でファイルを捜査する場合で複数条件をしたいと考えております。
具体的には文頭が①、②のいずれからも始らないファイルがあれば、その結果を得たいと考えております。

path = "\a"
result1 = Dir(pass & "\" & "①*")
result2 = Dir(pass & "\" & "②*")

If result1 <> "" AND result2 <> "" Then
　' 処理
Endif
```
以下のように、それぞれ判定する必要があるのでしょうか？それともRegExオブジェクトを使わずに簡単な複数条件を指定する方法があるのでしょうか？

ご助言をお願いいたします。

【追記】
If文について 
`If result1 =  "" AND result2 = Then` 
としていまいしたが、正しくは論理的には以下のとおりのため修正しました。
`If result1 <> "" AND result2 <> Then`

Answer 1

ループでまわしてLike演算子で判断することになります。

    Dim result As String, path As String
    path = "C:\test"

    result = Dir(path & "\" & "*")
    Do Until result = ""
        If Not result Like "[①②]*" Then
            Debug.Print result
        End If
        result = Dir()
    Loop

Comments

[pegy]

ありがとうございます。基本的には想定したことを実装することができたのですが、実際に複数あるフォルダを当該処理でループした際に、無限ループで固まってしまいました。Do Until result = ""の時点でそのような場合にはループにも入らない認識なのですが、他に原因が考えらえれますでしょうか？

[pegy]

一応Do Untilの直前に If result <> "" Thenで回避できているので、やはりフォルダが空の場合にはループに入ってしまって、何もないところから、特定の条件でないものを探しているような矛盾が生じしている印象はあります。

[hatena19]

当方のサンプルでは問題なく動作してます。実際に記述したコードを提示してもらえますか。
あと、Dir関数は制限がありますが、その点は大丈夫でしょうか。

Dir関数の制限について｜VBA技術解説
https://excel-ubara.com/excelvba4/EXCEL262.html