>>176
そういやそんなのやってた。参考までに

名前： 送るにショートカット作成
タイプ： JScript

オプション：
const p = GetFolderView().FocusedItem.Path; const d = wsh.ExpandEnvironmentStrings("%AppData%\\Microsoft\\Windows\\SendTo");
const t = fso.BuildPath(d, fso.GetBaseName(p) + '.lnk'); const o = wsh.CreateShortcut(t); o.TargetPath = p;
o.WorkingDirectory = fso.GetParentFolderName(p); o.Save();