求一个创建快捷方式批处理

2024-12-01 07:35:30

推荐回答（1个）

回答1：

批处理做快捷方式不太容易。
用vbs做。保存成.vbs格式，然后运行即可。我不太懂，网上Ctrl+C来的。

Set doLNK = WScript.CreateObject("WScript.Shell")
DeskPath = doLNK.SpecialFolders("Desktop") '获取桌面目录
CurrPath = doLNK.CurrentDirectory ’取当前目录，此项未用
set oShellLink = doLNK.CreateShortcut(DeskPath & "\快捷方式 - 123.lnk") ‘快捷方式放在桌面
oShellLink.TargetPath = "E:\123\123.exe" ‘文件路径
oShellLink.WindowStyle = 1
oShellLink.IconLocation = "E:\123\123.exe,0" ’图标
oShellLink.WorkingDirectory = DeskPath ’工作目录设为桌面
oShellLink.Save