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

kidzgy

在 【%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】，显得有点碍眼，不知道有没有办法在原有的代码上更加完善，达到去除快捷方式原先扩展名的目的？

kidzgy

批处理代码：

>"%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
复制代码

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

yidamw@qq.com

回复 6# kidzgy


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

kidzgy

回复 5# jyswjjgdwtdtj


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

jyswjjgdwtdtj

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

Five66

完事后改名去掉

kidzgy

回复 2# Nsqs


    右键执行发送时会报错。

Nsqs

GetFile改成GetBaseName