TL;DR
在 SendTo 文件夹里加上一文件夹的快捷方式
后,在右键发送到这个文件夹的是这些文件的一个副本
,实际上是一个复制
的过程,有时候我们只希望是快捷方式,那就得另想办法了。
方案如下:
创建一个 用来存放 快捷方式 的 文件夹。 如:D:\_installedFrom2021.0630\快捷方式
将 下面的内容 保存为 ..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
然后 创建 快捷方式, 复制到 sendto 目录下 shell:sendto
[2] , 建议名字第一个字符为 .
(英文 点) , 以便排在第一个。
然后 就可以像 发送到 桌面快捷方式
一样了。
还可以将 快捷方式 目录 (脚本中第 4 行) 添加到 工具栏 上。
参考链接:
- [【推荐】simpread-右键发送 (sendto),创建快捷方式到自定义的位置 _ 张生荣.md]([推荐]simpread-右键发送 (sendto),创建快捷方式到自定义的位置 _ 张生荣.md)
自定义Win10右键“发送到”菜单,实现快捷操作 - Windows10.Pro
运行vbs脚本报错无效字符、中文乱码的解决方法(编码问题)_vbs_脚本之家 (jb51.net)
借助FileMenu Tools右键菜单管理器,你不但可以自定义右键菜单中的“发送到”子菜单,还可以添加功能异常丰富的FileMenu Tools菜单组。
运行vbs脚本报错无效字符、中文乱码的解决方法(编码问题)_vbs_脚本之家 (jb51.net) 也可见 素材/已整理
︎
自定义Win10右键“发送到”菜单,实现快捷操作 - Windows10.Pro ︎