右击将快捷键方式发送到任意路径.doc
- 格式：doc
- 大小：254.00 KB
- 文档页数：9
有的时候，我们需要快速的将文件复制到指定的文件夹下，可能通过在文件右击发送到菜单内添加目标文件夹的方式来实现，具体如下：点击“开始”—“运行”，如果找不到“运行”的话，可以用快捷键：+“R”。
运行打开后，输入“sendto”，不区分大小写，如下图所示：
之后点确定，弹出如下文件夹：
文件夹内的东西是不是有些眼熟？再看下面的图片：
没错，之前打开的sendto文件夹就是用来存放发送到信息的。
我们的目标是通过文件右击“发送到”向指定文件夹内发送文件。
比如我想要的文件夹是：
在sendto文件夹内空白处右击—新建—快捷方式，如下图所示：
之后会弹出一个创建快捷方式的窗口，如下图：
点击浏览，在弹出的浏览文件夹窗口内找到目标文件夹（我的目标文件夹是“炳哥”），如下图所示：
点击确定，之后回到如下窗口：
点击下一步，弹出如下窗口：
在该窗口中的名称是可以更改的。
点击完成后就可以在sendto文件夹内看到目标文件夹的快捷方式，如下图：
此时，你对文件右击时，在发送到选项内就会看到你新加进去的目标文件夹，如下图：
此时，文件就能通过右击发送到之前所指定的文件夹内了。
向sendto文件夹内放其他文件夹的快捷方式，可以增加“发送到”里面的目标文件夹选项。
如果我们向sendto内存放应用程序的快捷方式，会出现什么情况呢？
于是，我便将photoshop的快捷方式放到了sendto文件夹下，当我右击某图片时，发送到内真的多了个photoshop选项，如下图：
点击之后，那图片真的在photoshop内打开了。
有些人可能会觉得这个功能似乎没什么用，通过双击文件就可以打开。
但是，当你电脑上同时装有word2003、wps、word 2007时，你就会觉得这个功能很有用了。
我们可不可以通过右击将文件的快捷方式发送到任意位置呢？笔者在电脑上找了半天也没找到相关的选项，通过分析前面的操作，笔者找到了实现的方法。
我们可以写一个脚本或是应用程序用来实现创建快捷方式并将快捷键方式发送到指定位置。
此处笔者用的是vbs脚本，如下所示：
''===========================================================
''
'' NAME: <CreateMyShortCut.vbs>
''
'' AUTHOR: Ivan Chen , Zsu
'' DATE : 2003-5-12
''
'' COMMENT: <comment>
''
''=============================================================
Const strDestination = "……\你想要的文件夹位置\"
Set objArgs = WScript.Arguments
Set WshShell = WScript.CreateObject("WScript.Shell")
For i = 0 to objArgs.Count - 1 '' Loop through all arguments.
strShortCut = strDestination & "\" & GetAName(objArgs(i)) & ".lnk" set oShellLink = WshShell.CreateShortcut(strShortCut)
oShellLink.TargetPath = objArgs(i)
oShellLink.WindowStyle = 1
''oShellLink.Description = "Created By Ivan Chen"
oShellLink.WorkingDirectory = Left(objArgs(i), InStrRev(objArgs(i), "\"))
oShellLink.Save
Next
Function GetAName(DriveSpec)
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
GetAName = fso.GetFileName(DriveSpec)
End Function
''end
将上面代码中的“\你想要的文件夹位置\”换成你想要的位置。
之后将改好的代码复制，并新建一个文本文档，将上面内容粘贴进去，之后将文件保存为vbs文件，如下图所示：
之后，我们将此文件或此文件的快捷方式放到sendto文件夹下，此时再右击某文件试试。
通过右击，我们可以发现，发送到选项内多了个vbs文件，如下图：
通过点击那个“…….vbs”选项，我们可以看到，那个文件的快捷方式真的到了目标文件夹内了。
