VBAのDir関数で全く関係のない階層が返ってくる

Question

実現したいこと

• ファイルの存在有無により分岐をさせたいです。

発生している問題・エラーメッセージ

エラーは出ていないのですが、Thisworkbook.pathで指定しているパスとは全く関係のないドキュメントフォルダが返ってきます。

具体的には、下記のような結果となります。

①ファイルが存在しないため、MsgBoxは「""」を返す（想定通り）
②ファイルが存在しているが、MsgBoxはドキュメントフォルダの全く関係ないとあるファイルを返す（本来であればpathの結果を返してほしい）

該当のソースコード

For i = 1 To maxNum
 fileName = "hoge" & "_*.xlsx"
 path = Dir(ThisWorkbook.path & "\" & fileName)

 '①存在なしの場合
 If Dir(path) = "" Then
  MsgBox "①Dir(path)=" & Dir(path)
 '②存在ありの場合
 Else
  MsgBox "②Dir(path)=" & Dir(path)
 End If
Next i

試したこと

実際にファイルを置いたり置かなかったりのパターンで試しました。

Answer 1

'①存在なしの場合
If Dir(path) = "" Then
MsgBox "①Dir(path)=" & Dir(path)
'②存在ありの場合
Else
MsgBox "②Dir(path)=" & Dir(path)
End If

呼び出さなくてもいい Dir 関数をいちいち呼び出されているからでは。

'①存在なしの場合
If path = "" Then
    MsgBox "①path=" & path
'②存在ありの場合
Else
    MsgBox "②path=" & path
End If

Comments

[sf213471118]

Dir関数の無意味な呼び出しをなくすようにします、ありがとうございました。