TL;DR

在 SendTo 文件夹里加上一文件夹的快捷方式后，在右键发送到这个文件夹的是这些文件的一个副本，实际上是一个复制的过程，有时候我们只希望是快捷方式，那就得另想办法了。

方案如下：

1. 创建一个 用来存放 快捷方式 的 文件夹。 如：D:\_installedFrom2021.0630\快捷方式

2. 将 下面的内容 保存为 .YaFey快捷方式目录.vbs , 把脚本中第 4 行中的的 strFolder 改成自己需要的值 。

   • 脚本如果乱码的话， 将脚本保存为 ANSI 编码 即可解决。^[1]
   • objFSO.GetFileName 所有方法：ASP FileSystem 对象 | 菜鸟教程 (runoob.com)

   Set unNamedArguments = WScript.Arguments.UnNamed 
   set WshShell = WScript.CreateObject("WScript.Shell") 
   Set objFSO = CreateObject("Scripting.FileSystemObject") 
   strFolder = "D:\_installedFrom2021.0630\快捷方式\"     '后面要有符号"\" 
   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") 
   	set oShellLink = WshShell.CreateShortcut(strFolder & objFSO.GetFileName(filename) & "-快捷方式.lnk") 
       oShellLink.TargetPath = filename 
       oShellLink.WindowStyle = 1 
       oShellLink.WorkingDirectory = objFSO.GetParentFolderName(filename) 
       oShellLink.Save  
   NEXT
   

3. 然后 创建 快捷方式， 复制到 sendto 目录下 shell:sendto^[2] ， 建议名字第一个字符为 .(英文 点) ， 以便排在第一个。

4. 然后 就可以像 发送到 桌面快捷方式 一样了。

5. 还可以将 快捷方式 目录 （脚本中第 4 行） 添加到 工具栏 上。

参考链接：

1. [【推荐】simpread-右键发送 (sendto)，创建快捷方式到自定义的位置 _ 张生荣.md]([推荐]simpread-右键发送 (sendto)，创建快捷方式到自定义的位置 _ 张生荣.md)
2. 自定义Win10右键“发送到”菜单，实现快捷操作 - Windows10.Pro
3. 运行vbs脚本报错无效字符、中文乱码的解决方法(编码问题)_vbs_脚本之家 (jb51.net)
4. 借助FileMenu Tools右键菜单管理器，你不但可以自定义右键菜单中的“发送到”子菜单，还可以添加功能异常丰富的FileMenu Tools菜单组。

标签：oShellLink,自定义,filename,右键,objFSO,快捷方式
来源： https://www.cnblogs.com/yafey/p/15009375.html