質問: thisworkbook.path if dir("" & cr_dir_path \*マスタ*",vbdirectory) <>"" then msgbox "続行" else msbgob "マスタを含んだディレクトリがありません" endif ちなみにif以下を if dir("C:\User\Desktop\ に置き換えると正常に動くので変数cr_dir_pathの中の値をdir関数の引数としてうまく展開できていないのが理由だと思うのですが、"をエスケープしながら入れ子にするのがうまくいきません。 アドバイスをお願いします。
回答: 変数と文字列の結合なので、こうじゃないですか? ``` '間違い if dir("" & cr_dir_path \*マスタ*",vbdirectory) <>"" then '正しい if dir(cr_dir_path & "\*マスタ*",vbdirectory) <>"" then ``` 私の環境(Windows7 32bit Excel 2010)ではうまくいきました。 パスに空白が含まれてても問題なく判定できるようです。