VBS実行時のパス取得について

Question

実行時に現在アクティブになってるディレクトリに対して、新規テキストファイルを作成する　というVBSを作成しようと思っています。(ctrl+shift+Nで新しいフォルダ作成のショートカットのテキストファイル版を作成しているというイメージです)

現在起きている問題としては、ファイル作成場所のフォルダを上手く取得できないという問題です。
カレントディレクトリを指定すると、VBSを保存している場所が指定されてしまいます。
フォルダ選択のダイアログを表示させれば任意の場所を指定出来るのですが、ショートカットキーを使ってワンタッチでファイル作成したいという目的から逸れてしまいます

VBS実行時に選択していたフォルダ(アクティブになってる場所)を取得する方法が何かありましたら教えていただけますでしょうか

Answer 1

アクティブウィンドウが、Explorerの場合にそのアクティブウィンドウのフォルダーと言うことですよね？
その場所を知っているのはExplorerだけなので、Explorerにそれを教えてくれるAPIが無ければ難しいと思いまし。

Ctrl-L で、アドレスバー部分にフォーカスが移るので、そこでコマンドを実行すればそのフォルダーをカレントディレクトリーとして実行してくれるので、なんとかなるのでは？と思ったのですが、
Sendkeys "^L"ではアドレスバー部分にフォーカスが移りませんでした。

あとは、レジストリーをいじって、フォルダーの右クリックメニューにプログラムを登録すれば、フォルダーを開いた状態で、右クリック→追加した物を選択、で、そのプログラムがディレクトリを引数に実行できるはずなので、そういう手順で良ければ出来ます。

Comments

[dai_9944]

ご回答ありがとうございます！

> アクティブウィンドウが、Explorerの場合にそのアクティブウィンドウのフォルダーと言うことですよね？
→はい、その認識の通りです。

otnさんの回答を見て、もしやと思い、画面を切り替えてからsendkeys"^l"を試してみたところ、アドレスバーにフォーカスを移すことができました！

そこからクリップボードに保存して呼び出す とすればひとまず動作は確認できました(かなり無理矢理な方法ではありますが・・・笑)

[otn]

> 画面を切り替えてからsendkeys"^l"を試してみたところ、アドレスバーにフォーカスを移すことができました！

おお、できたんですね。
私は、スクリプト起動後にsleep 2000をいれて2秒の間にウィンドウをアクティブにして、SendKeysしたのですが、続けて入力できず。

フォーカスが移るのなら、
SendKeys "^L"
WScript.Sleep 500
SendKeys "cmd /c copy D:\雛形\new.txt ."
みたいなことで、そのフォルダーに作りたいファイルをコピーすれば良いかと思います。
（ネットワークドライブでは駄目です）