批处理之家 - Powered by Discuz! Board

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

作者: kidzgy 时间: 2023-10-15 17:48 标题: 【已解决】求完善【发送快捷方式到启动文件夹】到右键发送到菜单的VBS代码

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

在【%appdata%\Microsoft\Windows\SendTo】新建【启动快捷方式.vbs】，代码如下

Set oShell = CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
Set lnk = oShell.CreateShortcut(oShell.ExpandEnvironmentStrings("%APPDATA%\Microsoft\Windows\Start Menu\Programs\Startup\") & FSO.GetFile(WScript.Arguments(0)).Name & ".lnk")

lnk.TargetPath = WScript.Arguments(0)
lnk.Save
复制代码

有什么exe、bat可以右键发送到启动，实现开机启动，但是有个问题，在【启动】文件夹生成的快捷方式，文件名是带上原扩展名的，比如发送的是exe，文件名就是aaa.exe.lnk，发送的是bat，文件名就是aaa.bat.lnk，在显示上就会显示多【.exe】【.bat】，显得有点碍眼，不知道有没有办法在原有的代码上更加完善，达到去除快捷方式原先扩展名的目的？

作者: Nsqs 时间: 2023-10-15 18:07

GetFile改成GetBaseName

作者: kidzgy 时间: 2023-10-15 18:54

回复 2# Nsqs

右键执行发送时会报错。

作者: Five66 时间: 2023-10-15 19:19

完事后改名去掉

作者: jyswjjgdwtdtj 时间: 2023-10-15 19:29

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

作者: kidzgy 时间: 2023-10-15 21:15

回复 5# jyswjjgdwtdtj

原来如此，还要把.Name去掉，搞定了，谢谢！

作者: yidamw@qq.com 时间: 2023-10-16 08:05

回复 6# kidzgy

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

作者: kidzgy 时间: 2023-10-16 12:51

批处理代码：

>"%appdata%\Microsoft\Windows\SendTo\启动快捷方式.vbs" echo Set oShell = CreateObject("WScript.Shell")
>>"%appdata%\Microsoft\Windows\SendTo\启动快捷方式.vbs" echo Set FSO = CreateObject("Scripting.FileSystemObject")
>>"%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")
>>"%appdata%\Microsoft\Windows\SendTo\启动快捷方式.vbs" echo lnk.TargetPath = WScript.Arguments(0)
>>"%appdata%\Microsoft\Windows\SendTo\启动快捷方式.vbs" echo lnk.WorkingDirectory = FSO.GetFile(WScript.Arguments(0)).ParentFolder.Path
>>"%appdata%\Microsoft\Windows\SendTo\启动快捷方式.vbs" echo lnk.Save
复制代码

VBS代码：

Set oShell = CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
Set lnk = oShell.CreateShortcut(oShell.ExpandEnvironmentStrings("%APPDATA%\Microsoft\Windows\Start Menu\Programs\Startup\") & FSO.Getbasename(WScript.Arguments(0)) & ".lnk")
lnk.TargetPath = WScript.Arguments(0)
lnk.WorkingDirectory = FSO.GetFile(WScript.Arguments(0)).ParentFolder.Path
lnk.Save
复制代码

我再完善了一下，加了个参数【起始位置】。

欢迎光临批处理之家 (http://bbs.bathome.net/)