SendToにショートカットを作るスクリプト

準備

以下の内容のsendto.jsを作成してSendToフォルダに置く

var ws = WScript.CreateObject("WScript.Shell");
var ln = ws.SpecialFolders("SendTo") + "\\" + WScript.Arguments(0).replace(/.*\\/,"") + ".lnk";
var sc = ws.CreateShortcut(ln);
sc.TargetPath = WScript.Arguments(0);
sc.Save();

使い方

好きなファイルを右クリックして、送る→sendto.jsとすると、SendToにショートカットが作られる。
なお、sendto.jsのショートカットをSendToに作るときにsendto.js自身を使ってもよい。

ショートカット名変更可能版

InputBoxを使うのでしかたなくVBScriptで書き直した

fn = WScript.Arguments(0)
ln = InputBox("Shortcut name",,Mid(fn,InStrRev(fn,"\")+1))
If ln = "" Then WScript.Quit
set ws = CreateObject("WScript.Shell")
set sc = ws.CreateShortcut(ws.SpecialFolders("SendTo") & "\" & ln & ".lnk")
sc.TargetPath = fn
sc.Save