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

原文地址：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 

      看个截图：