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

Rank: 2

帖子
61 
积分
181 
技术
1  
捐助
0  
注册时间
2009-5-1 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2023-10-15 17:48 | 只看该作者

[问题求助] 【已解决】求完善【发送快捷方式到启动文件夹】到右键发送到菜单的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. 

  5. lnk.TargetPath = WScript.Arguments(0)

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

Nsqs

Rank: 5Rank: 5

帖子
318 
积分
546 
技术
57  
捐助
0  
注册时间
2016-4-11 
2楼
发表于 2023-10-15 18:07 | 只看该作者
GetFile改成GetBaseName

TOP

kidzgy

Rank: 2

帖子
61 
积分
181 
技术
1  
捐助
0  
注册时间
2009-5-1 
3楼
发表于 2023-10-15 18:54 | 只看该作者
回复 2# Nsqs


    右键执行发送时会报错。

TOP

Five66

Rank: 5Rank: 5

帖子
820 
积分
1135 
技术
110  
捐助
0  
注册时间
2021-8-26 
4楼
发表于 2023-10-15 19:19 | 只看该作者
完事后改名去掉

TOP

jyswjjgdwtdtj

Rank: 5Rank: 5

帖子
657 
积分
777 
技术
34  
捐助
0  
注册时间
2023-2-9 
5楼
发表于 2023-10-15 19:29 | 只看该作者
他的意思或许是FSO.GetFile(WScript.Arguments(0)).Name & ".lnk")改为
FSO.Getbasename(WScript.Arguments(0)) & ".lnk")

TOP

kidzgy

Rank: 2

帖子
61 
积分
181 
技术
1  
捐助
0  
注册时间
2009-5-1 
6楼
发表于 2023-10-15 21:15 | 只看该作者
回复 5# jyswjjgdwtdtj


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

TOP

yidamw@qq.com

Rank: 1

帖子
13 
积分
30 
技术
0  
捐助
0  
注册时间
2020-10-14 
7楼
发表于 2023-10-16 08:05 | 只看该作者
回复 6# kidzgy


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

TOP

kidzgy

Rank: 2

帖子
61 
积分
181 
技术
1  
捐助
0  
注册时间
2009-5-1 
8楼
发表于 2023-10-16 12:51 | 只看该作者
批处理代码：
  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

返回列表