リリースだけが理由じゃない。
引越しだけが理由じゃない…。
毎日VBA漬けなので、ブログで書いていないことを忘れてた。
つーことでVBA。んで、今回の御題は…
「空白の入っているディレクトリ名ってどう思います？ ～C:\Documents and Settings～」
はい。
Windowsがバリバリに流行っている今日この頃、
C:\Documents and Settings
こんなディレクトリをみても、だれも不思議に思わない。
でもでも、DOSどころかBASICから触っていた陸海(年齢詐称の疑いあり)からすると、
半角空白の入っているディレクトリは今すぐ謝れ！！
です。
理由はね、
「やっぱりVBAに取り憑かれている １．unixサーバ上からファイル取得の巻
」
にあるような、バッチファイルを生成し、WSHを使用して実行するときに、エラーになることがあるから。
生成したバッチファイル名も生成するため、ファイル名自体が変数(ls_com)に格納されて、
Set WSH_exe= WSH.Exec(ls_com)
で実行するようなコードを書くと、エラーになる。
原因は、WSHを使用して、バッチファイルを実行しようとしたとき、そのバッチファイルのパスに空白が入っているとエラーになるの。
WSHで実行≒コマンドプロンプトで実行
と考えてもらえると分かりやすいと思う。
半角空白は、DOSコマンド上では、コマンドの区切り文字として扱われます。なので、
C:\Documents and Settings\test.bat
をバッチファイルをフルパス指定で実行すると、
バッチファイルは「C:\Documents」で、「and」や「Settings\test.bat」はオプション(引数)として扱われる。
当たり前だけれど、「C:\Documents」なんてファイルはないから、ファイルはありませんって、エラーになる。
VBAでDOSコマンド実行する技を覚えたてのころに、コレをよく頻発させた。解決策をまだ知らない頃は、バッチファイルのパスを「c:\tmp\test.bat」とかにして、逃げていた。空白の入ったパスに置くの禁止ーとか言って。
だけれど、最近入ってきた同僚君が何でもかんでもデスクトップやマイドキュメントにファイルを置きたがる子だったりする。彼から
「りくみさーん…また僕のPCではうごきませんー。おださんのところではうごくのにー(ﾉДT)」
というヘルプコールを散々うけて、ちょっぴり食傷気味になった。
なので、半角空白が入っていても、まともに動くようにしてやるーるールーと、どうでもいいほどに情熱を燃やして調査。
そしたらなんのことはない。
パスに半角空白が入る場合「"」で囲んであげれば、大丈夫
と判明。
…ヘルプコールを散々きいて付き合った時間がもったいねぇ。VBAへもどってみると、で、ココで問題が。
VBAって、文字列を現すのに、「"」を使ってる。例えば変数ls_tempに「陸海」を代入するときは
ls_temp = "陸海"
というかんじ。
さて、ここで、ls_tempに「"」付きの文字列「"陸海"」を代入したいときはどうするの？？？と悩む。
ここで、VBAのお茶目な関数「chr」さんのご登場です。
ｃｈｒさんは「ちゃー」さんとか「しゃー」さんとか「きゃー」さんといって、「charactor」が縮められたものです。
とある数字を与えてあげると、半角記号として大活躍するお茶目さんです。
Chr(9) はタブ、Chr(13)は改行などです。参考
んで、「"」は？といいますと、 Chr(34) でしたー！
ls_temp = Chr(34) & "陸海" & Chr(34)
としてあげれば、ls_tempには無事「"陸海"」が入ります。
なので、
…前略…
ls_com = Chr(34) & "C:\Documents and Settings\test.bat"& Chr(34)
…中略…
Set WSH_exe= WSH.Exec(ls_com)
これでばっちり。
うぃ～。
