ファイルが存在しているように見えるが本当は存在していない？

Question

前提・実現したいこと

VBAでUWSCを実行するコードを書いています。

実際にフォルダーの中を確認しに行っても、Dir関数で確認しても、実行したいファイルは存在していますが(存在しているように見えますが)、いざ実行すると、そのファイルが見当たらないとのコメントが出てしまいます。ファイルが存在しているように見えて実際は存在していない(パスが通っていない)のでしょうか？

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

FILE not found

該当のソースコード

Dim path As String
Dim file As String
Dim ret As Variant

path = "○○\UWSC.exe"
file = "●●\test.UWS"

If Dir(file) <> "" Then
MsgBox file & "は存在する"
Else
MsgBox file & "は存在しない"
End If

ret = Shell(path & " " & file, vbNormalFocus)

試したこと

[1] ret = Shell(path, vbNormalFocus)として実行すると、キチンとUWSC自体は起動することは確認しました。
[2] 他のパソコンでret = Shell(path & " " & file, vbNormalFocus)として実行すると、正しく動くことも確認出来ています。

補足情報（FW/ツールのバージョンなど）

Windowsのエディション：Windows 10 Home
UWSCのバージョン：5.3.0.2

Comments

[y_waiwai]

で、実際には存在するんでしょうか？

[dehi]

存在します。
存在しているのにFILE not foundとなるので、困っています。

[dodox86]

エラーが起きるときのShell(path & " " & file, vbNormalFocus)で、path & " " & file の部分を
いったん変数に入れ（filePath = path & " " & file）、それを表示、確認してみてください。

Answer 1

file のフルパスに半角スペースが含まれていませんか。
半角スペースが含まれている場合でも実行できるようにするには、フルパスを引用符(")で囲む必要があります。

ret = Shell(path & " """ & file & """", vbNormalFocus)

Comments

[dehi]

ご指摘頂いた通り、フルパスに半角スペースが含まれていることが原因でした。解決しました。お忙しいところ本当にありがとうございました。別のパソコンでは問題なく動いたと申し上げましたが、そちらはフルパスに半角スペースがありませんでした。納得です！本当にありがとうございました。

Answer 2

相対パスでファイルを指定する場合は、カレントディレクトリがどこにあるかを確認しましょう。
自分の思ってるところにカレントディレクトリがない場合はファイルが見つけれません。

まあ、フルパスでファイルを指定してやればいいって話ですが。

Comments

[dehi]

既にフルパスでファイル指定しています。それでもnot foundとなってしまいます。

[y_waiwai]

ならそれが間違ってるってことなんでしょう。
全角文字？が混じってないかとかよく確認してみてください

[dehi]

UWSCを単独で動かして、GET_CUR_DIRで取得したパスをコピペしているので間違いないと思います。

[y_waiwai]

あなたは間違ってないと言ってますが、コンピュータは間違ってると言ってます。
まあ、どちらが信用できるのかという話になると思いますが。
どっちだとおもいますか？