現在のディレクトリと同じ階層に任意のディレクトリがあるか判定

Question

現在のディレクトリと同じ階層に任意のディレクトリがあるか判定したいのですが、文法エラーになります。プログラムは判定後存在すれば、正になるようになっています。
ノートに書いてきました。
小文字なのはご容赦ください。

dim cr_dir_path as variant

cr_dir_path = thisworkbook.path

if dir("" & cr_dir_path *マスタ*",vbdirectory) <>"" then

msgbox "続行"

else
msbgob "マスタを含んだディレクトリがありません"

endif

ちなみにif以下を
if dir("C:\User\Desktop
に置き換えると正常に動くので変数cr_dir_pathの中の値をdir関数の引数としてうまく展開できていないのが理由だと思うのですが、"をエスケープしながら入れ子にするのがうまくいきません。

アドバイスをお願いします。

Answer 1

変数と文字列の結合なので、こうじゃないですか？

'間違い
if dir("" & cr_dir_path \*マスタ*",vbdirectory) <>"" then

'正しい
if dir(cr_dir_path & "\*マスタ*",vbdirectory) <>"" then

私の環境(Windows7 32bit Excel 2010)ではうまくいきました。
パスに空白が含まれてても問題なく判定できるようです。

Comments

[yoshipu]

ありがとうございます。大変助かりました。