右击将快捷键方式发送到任意路径

1、有的时候，我们需要快速的将文件复制到指定的文件夹下，可能通过在文件右击发送到菜单内添加目标文件夹的方式来实现，具体如下： 点击“开始”一“运行”，如果找不到“运行”的话，可以用快捷键： 3 + “R”。运行打开后，输入“ sendto”，不区分大小写，如下图所 示：之后点确定，弹出如下文件夹:文件夹内的东西是不是有些眼熟？再看下面的图片:seridtol打开(0) 打印尼 編WE)发布DWF 色戏布DWF和电孑邮件打弃方式卜添加到压缩丈件(管嘏如到空ndto试唸的文i.rarW压SWT E-mai.H迢圧缩致洸rd也试噓的文件,并E-mail燧送到列 |iLl压缩的哪)文件夹势切Q我餡立档复制

2、Q負桌面快犍方式创建快捷方式”邮件撐杖者1FW 重命名(犀性射7=!没错，之前打开的sendto文件夹就是用来存放发送到信息的。我们的目标是通过文件右击“发送到”向指定文件夹内发送文件比如我想要的文件夹是：在sendto文件夹内空白处右击一新建一快捷方式，如下图所示: iSendTu二 J 旦X之后会弹出一个创建快捷方式的窗口，如下图:漲警鬻轆翳尹文缺计话键入顶目的位置（X）：上1击取消 I点击浏览，在弹出的浏览文件夹窗口内找到目标文件夹 （我的目标文 件夹是“炳哥”），如下图所示:从下面选择快捷方式的目+我的文植 J我的电脑 9 System (Ci)+1 9 Work CD：) GFcst

3、 (E：J+ E1+也1用电脑里原来的玉西 軟件备餡电脑需更改的内容上就确走取消点击确疋，之后回到如下窗口:点击下一步，弹出如下窗口:键入该快捷方式的名称匹）:I炳哥的文件典WWnVWWWVWWVnMmWWWWIiWWiBWVWMKVWVVHhgWVW上1步吻I兗成取消 在该窗口中的名称是可以更改的。点击完成后就可以在sendto文件夹内看到目标文件夹的快捷方式，如下图:刖|I-h压希（Fp*血立件兵J1-I 匚I 註I I kF邱f+疾戌若 HA PTMAIL 疋11 KR瞬麴7 7 i/htdLv DTdl ijJIf w DE5H3. INK Ttt0IC6此时，你对文件右击时，在发送到

4、选项内就会看到你新加进去的目标文件夹，如下图：1打开（0打印 搁辑（B釐布DWF右釐布DWF和电子邮件U压缩伍pp詔立件夹 菠的芸档 黨面快捷方式 炳哥轴文件夹, 帥件接收者打幵方式（威总忝如瓯1压堀立件（期 越恭加到它品W试验前文件曲（D這压縮井E-mal.u压编到PencMX魅的文件临并E-mail删際 重命名（51）鼬此时，文件就能通过右击发送到之前所指定的文件夹内了。向sendto文件夹内放其他文件夹的快捷方式，可以增加“发送到”里 面的目标文件夹选项。如果我们向 sendto内存放应用程序的快捷方 式，会出现什么情况呢？于是，我便将photoshop的快捷方式放到了 sendto文件

5、夹下，当我右 击某图片时，发送到内真的多了个 photoshop选项，如下图：点击之后，那图片真的在photoshop内打开了。有些人可能会觉得这 个功能似乎没什么用，通过双击文件就可以打开。但是，当你电脑上同时装有 word2003、wps、word 2007时，你就会 觉得这个功能很有用了。我们可不可以通过右击将文件的快捷方式发送到任意位置呢？笔者 在电脑上找了半天也没找到相关的选项， 通过分析前面的操作，笔者 找到了实现的方法。我们可以写一个脚本或是应用程序用来实现创建快捷方式并将快捷 键方式发送到指定位置。此处笔者用的是vbs脚本，如下所示：II” NAME: II” AUTHOR:

6、Ivan Chen , Zsu” DATE : 2003-5-12IICOMMENT: vcomme ntIIConst strDesti nati on =你想要的文件夹位置Set objArgs = WScript.Argume ntsSet WshShell = WScript.CreateObject(WScript.Shell)For i = 0 to objArgs.Co unt - 1 ” Loop through all argume nts. strShortCut = strDest in ation & & GetAName(objArgs(i) & .l nk set

7、oShellLi nk = WshShell.CreateShortcut(strShortCut) oShellL in k.TargetPath = objArgs(i)oShellLi nk.Wi ndowStyle = 1oShellLi nk.Description = Created By Ivan Che noShellLi nk.Worki ngDirectory = Left(objArgs(i), I nStrRev(objArgs(i), )oShellLi nk.SaveNextFun ction GetAName(DriveSpec)Dim fsoSet fso = CreateObject(Script in g.FileSystemObject)GetAName = fso.GetFileName(DriveSpec)End Fun cti onend将上面代码中的“尔想要的文件夹位置”换成你想要的位置。 之后将改好的代码复制，并新建一个文本文档，将上面内容粘贴进去,之后将文件保存为vbs文件，如下图所示:之后，我们将此文件或此文件的快捷方