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

kidzgy · 发表于 2023-10-15 17:48:40

本帖最后由 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:57

GetFile改成GetBaseName

kidzgy · 发表于 2023-10-15 18:54:12

回复 2# Nsqs

右键执行发送时会报错。

Five66 · 发表于 2023-10-15 19:19:51

完事后改名去掉

jyswjjgdwtdtj · 发表于 2023-10-15 19:29:37

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

kidzgy · 发表于 2023-10-15 21:15:16

回复 5# jyswjjgdwtdtj

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

yidamw@qq.com · 发表于 2023-10-16 08:05:04

回复 6# kidzgy

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

kidzgy · 发表于 2023-10-16 12:51:59

批处理代码：

>"%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

复制代码

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

ednykissyou · 发表于 2025-7-7 01:14:17

批处理代码：VBS代码：我再完善了一下，加了个参数【起始位置】。
kidzgy 发表于 2023-10-16 12:51

大神看看我这个给有解　aa bb的位置不是固业的
http://www.bathome.net/viewthread.php?tid=70952&highlight=

		自动登录	找回密码
密码			注册

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

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

浏览过的版块