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

kidzgy

在 【%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. 
   
5. lnk.TargetPath = WScript.Arguments(0)
   
6. lnk.Save

复制代码

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

Nsqs

GetFile改成GetBaseName

kidzgy

回复 2# Nsqs


    右键执行发送时会报错。

Five66

完事后改名去掉

jyswjjgdwtdtj

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

kidzgy

回复 5# jyswjjgdwtdtj


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

yidamw@qq.com

回复 6# kidzgy


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

kidzgy

批处理代码：

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

复制代码

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

ednykissyou

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

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