[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[问题求助] 【已解决】求完善【发送快捷方式到启动文件夹】到右键发送到菜单的VBS代码

本帖最后由 kidzgy 于 2023-10-15 22:59 编辑

在 【%appdata%\Microsoft\Windows\SendTo】新建【启动快捷方式.vbs】,代码如下
  1. Set oShell = CreateObject("WScript.Shell")
  2. Set FSO = CreateObject("Scripting.FileSystemObject")
  3. Set lnk = oShell.CreateShortcut(oShell.ExpandEnvironmentStrings("%APPDATA%\Microsoft\Windows\Start Menu\Programs\Startup\") & FSO.GetFile(WScript.Arguments(0)).Name & ".lnk")
  4. lnk.TargetPath = WScript.Arguments(0)
  5. lnk.Save
复制代码
有什么exe、bat可以右键发送到启动,实现开机启动,但是有个问题,在【启动】文件夹生成的快捷方式,文件名是带上原扩展名的,比如发送的是exe,文件名就是aaa.exe.lnk,发送的是bat,文件名就是aaa.bat.lnk,在显示上就会显示多【.exe】【.bat】,显得有点碍眼,不知道有没有办法在原有的代码上更加完善,达到去除快捷方式原先扩展名的目的?

批处理代码:
  1. >"%appdata%\Microsoft\Windows\SendTo\启动快捷方式.vbs" echo Set oShell = CreateObject("WScript.Shell")
  2. >>"%appdata%\Microsoft\Windows\SendTo\启动快捷方式.vbs" echo Set FSO = CreateObject("Scripting.FileSystemObject")
  3. >>"%appdata%\Microsoft\Windows\SendTo\启动快捷方式.vbs" echo Set lnk = oShell.CreateShortcut(oShell.ExpandEnvironmentStrings("%%APPDATA%%\Microsoft\Windows\Start Menu\Programs\Startup\") ^& FSO.Getbasename(WScript.Arguments(0)) ^& ".lnk")
  4. >>"%appdata%\Microsoft\Windows\SendTo\启动快捷方式.vbs" echo lnk.TargetPath = WScript.Arguments(0)
  5. >>"%appdata%\Microsoft\Windows\SendTo\启动快捷方式.vbs" echo lnk.WorkingDirectory = FSO.GetFile(WScript.Arguments(0)).ParentFolder.Path
  6. >>"%appdata%\Microsoft\Windows\SendTo\启动快捷方式.vbs" echo lnk.Save
复制代码
VBS代码:
  1. Set oShell = CreateObject("WScript.Shell")
  2. Set FSO = CreateObject("Scripting.FileSystemObject")
  3. Set lnk = oShell.CreateShortcut(oShell.ExpandEnvironmentStrings("%APPDATA%\Microsoft\Windows\Start Menu\Programs\Startup\") & FSO.Getbasename(WScript.Arguments(0)) & ".lnk")
  4. lnk.TargetPath = WScript.Arguments(0)
  5. lnk.WorkingDirectory = FSO.GetFile(WScript.Arguments(0)).ParentFolder.Path
  6. lnk.Save
复制代码
我再完善了一下,加了个参数【起始位置】。

TOP

回复 6# kidzgy


    有完整的代码发一份吧。我也正好需要。

TOP

回复 5# jyswjjgdwtdtj


    原来如此,还要把.Name去掉,搞定了,谢谢!

TOP

他的意思或许是FSO.GetFile(WScript.Arguments(0)).Name & ".lnk")改为
FSO.Getbasename(WScript.Arguments(0)) & ".lnk")

TOP

完事后改名去掉

TOP

回复 2# Nsqs


    右键执行发送时会报错。

TOP

GetFile改成GetBaseName

TOP

返回列表