vbsで、マウスドラッグしている箇所の値の取得をしたい

Question

初心者です。
業務効率化目的で、マウスドラッグしている箇所(パス)の値を取得し、エクスプローラで開くショートカットの作成をしたい。
Wscript.Argumentsを用いたら良さそうだとわかったのですが、うまくいきません。
ご助言いただけますと幸いです。

ちなみに、クリップボードの値を取得し、エクスプローラで開くコードは下記：

Dim path
' クリップボードからパスを取得する
path = """" & CreateObject("htmlfile").ParentWindow.ClipboardData.Getdata("text") & """"

' エクスプローラでパスを開く
Set shell = CreateObject("Wscript.Shell")
shell.Run "explorer " & path

Answer 1

マウスドラッグしている箇所(パス)の値を取得し、エクスプローラで開くショートカットの作成をしたい。
Wscript.Argumentsを用いたら良さそうだとわかったのですが、

VBSスクリプトファイルの上に、ファイルをドロップして、そのドロップしたファイルのパスを知りたいと言うことであれば、Wscript.Argumentsで合ってます。
そうで無いなら、Wscript.Argumentsは関係ないでしょう。

Comments

[lisi]

ご回答ありがとうございます。
Wscript.Argumentsの具体的な書き方がよくわからないので、もう少し調べてみます。

[otn]

VBSスクリプトファイルの上に、ファイルをドロップして、そのドロップしたファイルのパスを知りたいと言うことなのでしょうか？

Wscript.Echo WScript.Arguments(0)
で、ドロップしたファイルのパス名が表示されます。

[lisi]

ご助言いただきありがとうございます。
> VBSスクリプトファイルの上に、ファイルをドロップして、そのドロップしたファイルのパスを知りたいと言うことなのでしょうか？
少し違うのかもしれません。
ドラッグしている箇所の値が何かに格納されているのであれば、その値を取得したいです。

下記の方が「クリップボードにコピーされている値を取得し、エクスプローラーでパスを開くショートカット」を実装されていますので、
https://www.bedroomcomputing.com/2020/12/2020-1209-open-folder-vbs/
「テキストファイル上に書いてあるパスをドラッグし(パスはコピーしない)、エクスプローラーでパスを開くショートカット」はつくれないのだろうかと考えております。

[otn]

> 少し違うのかもしれません。
回答の意味がわからなかったのでしょうか？

> そうで無いなら、Wscript.Argumentsは関係ないでしょう。
と書いたのですが、ここで、「そう」というのは、「VBSスクリプトファイルの上に、ファイルをドロップして、そのドロップしたファイルのパスを知りたい」を指しています。

ドラッグしてドロップしないというのは、どういう操作を想定しているのかわかりません。

[jinoji]

ファイルのドラッグではなくて、メモ帳やWebページなどのテキストの一部を選択状態にしてそれを（ctrl＋cでコピーするのではなく）マウスでドラッグするということですか？

[otn]

もしかして、テキストを範囲選択することを「ドラッグ」と言ってるのかな？
「ドラッグ」というのは、選択した物をマウスボタンを押したまま、ずずずっと引っ張って、別の場所に移動させることです。
https://dictionary.goo.ne.jp/search.php?MT=drag&kind=en&mode=0&IE=euc-jp
で、マウスボタンを放すことを「ドロップ」という。

選択しただけで何もしないのであれば、情報を得ることは（そのアプリで無い限り）無理ですね。