个性化右键-->发送到---遇到的问题

[zedan]

在SendTo文件夹里加上C:/MyTool文件夹的快捷方式后，在右键发送到的确有了这个选项，但发送到到这个文件夹的是某个文件的一个副本，但如果我想得到的只是快捷方式的话，该怎样做？
比如我在D:/MyMusic文件夹里右键选中a.mp3,将其发送到C:/MyTool，这样C:/MyTool就有了这个a.mp3，但我想得到的不是这样，我想得到的是在C:/MyTool里放上a.mp3的快捷方式而已，怎样做？？？

[scz123]

做个脚本可以实现

[zedan]

楼上的，那个脚本怎样做啊？

[scz123]

把如下内容保存为shortcut.vbs，然后创建快捷方式到sendto下，改个自己想要的名字，如“创建快捷方式到MYTOOL”：

Set unNamedArguments = WScript.Arguments.UnNamed

set WshShell = WScript.CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")

strFolder = "C:\MyTool\"
for count = 0 to wscript.arguments.count-1 Step 1
filename = unNamedArguments.Item(count)
Set objFile = objFSO.GetFile(filename)
set oShellLink = WshShell.CreateShortcut(strFolder & objFSO.GetBaseName(filename) & ".lnk")
oShellLink.TargetPath = filename
oShellLink.WindowStyle = 1
'oShellLink.IconLocation = "notepad.exe, 0"
'oShellLink.Description = "Shortcut Script"
oShellLink.WorkingDirectory = objFSO.GetParentFolderName(filename)
oShellLink.Save
NEXT

[ccnp_Server]

好，谢谢啊！