标签：oShellLink 自定义 filename 右键 objFSO 快捷方式

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

本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享；
2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关；
3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关；
4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除；
5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。