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