求一个创建快捷方式批处理
文件位置:E:\123\123.exe快捷方式保存在桌面上位置:C:\USER\ADMINISTRATOR\DESKTOP本人初学最好能在代码后加上注释解释一下哪行代码有...
文件位置:E:\123\123.exe
快捷方式保存在桌面上
位置:C:\USER\ADMINISTRATOR\DESKTOP
本人初学
最好能在代码后加上注释
解释一下哪行代码有什么作用
echo就不用了
另外
请注明控制文件路径的地方
以及如何更改文件位置
好的加分!!!! 展开
快捷方式保存在桌面上
位置:C:\USER\ADMINISTRATOR\DESKTOP
本人初学
最好能在代码后加上注释
解释一下哪行代码有什么作用
echo就不用了
另外
请注明控制文件路径的地方
以及如何更改文件位置
好的加分!!!! 展开
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
用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
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询