右键发送 (sendto),创建快捷方式到自定义的位置,不仅仅是复制,就像 发送到 桌面快捷方式 一样

2023-06-05,,

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 ︎

右键发送 (sendto),创建快捷方式到自定义的位置,不仅仅是复制,就像 发送到 桌面快捷方式 一样的相关教程结束。

《右键发送 (sendto),创建快捷方式到自定义的位置,不仅仅是复制,就像 发送到 桌面快捷方式 一样.doc》

下载本文的Word格式文档,以方便收藏与打印。