' addsendto.vbs

dim A,F,sh,ds,nm
set A=WScript.Arguments
if A.Count=0 then WScript.Quit
set W=WScript.CreateObject("WScript.Shell")
set F=WScript.CreateObject("Scripting.FileSystemObject")
ds=W.SpecialFolders("SendTo")

nm=InputBox("表示名を入力しろ")

set sh=W.CreateShortcut(ds&"\"&nm&".lnk")
sh.TargetPath=A(0)
sh.WorkingDirectory=F.GetParentFolderName(A(0))
sh.WindowStyle=1
sh.IconLocation=A(0)
sh.Save