发送快捷方式到指定文件夹

原文地址：http://hi.baidu.com/czj0120/item/3d67fdf594db02de6225d267

把所有软件的启动程序和常用资源（包括文件、文件夹、图片等等）的链接做成快捷方式放在一个特定的文件夹里以便使用时最快调用，如果再搭配Launchy这个软件那就更加的方便了。但是Windows右键里的发送菜单里只有"发送桌面快捷方式"，虽然对常用资源的发送没有什么问题，但如果是对软件的启动程序用右键发送到则是会出现问题，因为有些软件启动要调用软件所在文件夹里的有些东西，这时会出现有些程序无法启动的问题。所以说制作一个发送快捷方式到指定文件夹的脚本很是必要。

说明：Windows里的“发送到“具体文件都放在C:\Documents and Settings\用户名\SendTo\里。

将下面这个文件复制粘贴到记事本里，后缀名改为.vbs，具体名字自取。其中strFolder = "自己想放的位置"。

Set unNamedArguments = WScript.Arguments.UnNamed
set WshShell = WScript.CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
strFolder = "D:\常用软件\"
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.WorkingDirectory = objFSO.GetParentFolderName(filename)
oShellLink.Save
NEXT

看个截图：