相対パスから取得した場合のファイルの有無の確認

Question

下記のようなコードでIf Dir(currentPath & "" & getFilePath, vbDirectory)でカレントディレクトリに判定を含むファイルがなければ、実行したいのですが、必ずElseが実行されてしまいます。相対パスからディレクトリをしてする場合、どのように判定したらよいのでしょうか？

Sub getData()
 Dim currentPath As String
 Dim getFilePath As String
 
 currentPath = ThisWorkbook.Path()
 getFilePath = Dir(currentPath & "*判定*")

 If Dir(currentPath & "\" & getFilePath, vbDirectory) = "" Then
  MsgBox "*判定*の名称を持つファイル名がないです"
 Else
  Workbooks.Open Filename:=currentPath & "\" & getFilePath, UpdateLinks:=False
 End If
 
 
End Sub

追記
もうしわけございません。以下の方法で文字列としてgetFilePathを検査することで分岐させることができました。あまり、ファイルの存在を確認するために、このようなコードに関する記事をお見掛けしことがないため、もし当該方法が不適切である等のご意見もあれば、お願いいたします。

実行可能コード

Sub getData()
 Dim currentPath As String
 Dim getFilePath As String
 
 currentPath = ThisWorkbook.Path()
 getFilePath = Dir(currentPath & "*判定*")
 
 Debug.Print (getFilePath)
 If getFilePath = "" Then
   MsgBox "*判定*の名称を持つファイル名がないです"
 Else
  Workbooks.Open Filename:=currentPath & "\" & getFilePath, UpdateLinks:=False
End If
 

Answer 1

うまく動かなかった部分はvbDirectoryを指定していたからです。
これだとファイルは検出されません。

'If Dir(currentPath & "\" & getFilePath, vbDirectory) = "" Then
If Dir(currentPath & "\" & getFilePath) = "" Then

追記の方法でも問題ないと思います。

Comments

[pegy]

承知を致しました。
ご教示を頂き、ありがとうございます。