現在のディレクトリと同じ階層に任意のディレクトリがあるか判定したいのですが、文法エラーになります。プログラムは判定後存在すれば、正になるようになっています。
ノートに書いてきました。
小文字なのはご容赦ください。
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関数の引数としてうまく展開できていないのが理由だと思うのですが、"をエスケープしながら入れ子にするのがうまくいきません。
アドバイスをお願いします。
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2017/02/05 22:08