VBscriptでドラッグ＆ドロップしたファイル、フォルダのパスをコピー

下記のvbsファイルにD&Dしたファイル、フォルダのフルパスをクリップボードにコピー。
SendToフォルダにそのまま入れて、右クリックの"送る"で使用した方が便利。
だいなファイラーに登録すればもっと便利。前に書いたUWSC版より軽い気がする。
だいなファイラーに登録する場合は
実行パスの欄に"wscript.exe"
パラメータの欄に"下記のvbsのパス" $MF
と記入。
option explicit dim param, ff, ftb dim strpath, i set param = wscript.arguments set ff = createobject("forms.form.1") set ftb = ff.controls.add("forms.textbox.1").object strpath = "" for i = 0 to param.count - 1 strpath = strpath & param(i) & vbcrlf next ftb.multiline = true ftb.text = strpath ftb.selstart = 0 ftb.sellength = ftb.textlength ftb.copy set param = nothing set ftb = nothing set ff = nothing
こっち↓はショートパス版
option explicit dim param, ff, ftb, sfo dim strpath, i, fp set param = wscript.arguments set ff = createobject("forms.form.1") set ftb = ff.controls.add("forms.textbox.1").object set sfo = createobject("scripting.filesystemobject") strpath = "" for i = 0 to param.count - 1 if sfo.fileexists(param(i)) then fp = sfo.getfile(param(i)).shortpath _ else fp = sfo.getfolder(param(i)).shortpath strpath = strpath & fp & vbcrlf next ftb.multiline = true ftb.text = strpath ftb.selstart = 0 ftb.sellength = ftb.textlength ftb.copy set param = nothing set ftb = nothing set ff = nothing set sfo = nothing
上記のVBScriptにある

"forms.form.1"
"forms.textbox.1"

は

ToClip.VBS
テキストファイルの中身をクリップボードに送るVBScript
http://www.vector.co.jp/soft/win95/util/se294431.html

を参考にして書いたけれど、説明によるとOffice製品が入っていないと使えないようだ。