win7下如何在右键添加发送快捷方式到指定目录

Question

C:/user/用户名/AppData/Roaming/Microsoft/Windows/SendTo/
我已经知道这样把文件发送到指定目录
但是我想发送的是快捷方式,而不是一个完整的文件
请问要如何修改

Answer 1

先创建快捷方式，然后剪切，粘贴。或者选中原文件，按Alt 键拖到目标位置

Answer 2

win7下如在右键添加发送快捷方式到指定目录方法：

在这里把C盘目录“电子书”加入到“发送到(N)”。

先找到C盘目录“电子书”，右键“新建快捷方式”：。

选中创建好的快捷方式“电子书”，右键点复制或剪切。

打开“开始”－〉“所有程序”“附件”找到并点击“运行”。

可记住快速调用“运行”的快捷键：win + R 。


在“运行”窗口中输入：shell:sendto。


点确定后，会打开一个名为“SendTo”窗口。

“SendTo”窗口空白处，点右键选复制，把刚才剪切的“电子书”的快捷方式复制到这里，就完成了定制“发送到(N)”的添加。

最后来看一下使用的效果：

本回答被网友采纳

Answer 3

技术贴啊。。。。。
就在send to 文件夹里新建个TXT文件，里面填上以下内容

Const strDestination = "D:\TDDOWNLOAD"

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，文件名自己看着办。

十分的题目还得大费周章呀。。。。本回答被提问者采纳