Question

求一个创建快捷方式批处理,可以用上vbs。 好的加分！！！！！！

文件位置：E:\123\123.exe
快捷方式保存在桌面上
位置：C:\USER\ADMINISTRATOR\DESKTOP
本人初学
最好能在代码后加上注释
解释一下哪行代码有什么作用
好的话50分送上！！！！！

Answer 1

程序LNKCRT.VBS代码如下：
Dim WSHShell
Set WSHShell = CreateObject("WScript.Shell")
Dim MyShortcut, DesktopPath
'得到桌面所在的路径，如果要改位置，就改DesktopPath变量的值（字符串）就可以了。
DesktopPath = WSHShell.SpecialFolders("Desktop")
'创建快捷方式
Set MyShortcut = WSHShell.CreateShortcut(DesktopPath & "\123.exe.lnk")
'设置快捷方式所关联的程序
With MyShortcut
.TargetPath = WSHShell.ExpandEnvironmentStrings("E:\123\123.exe")
.Save
End With
程序经过测试，可以运行。

追问

请问如何更改位置？？？
WSHShell.SpecialFolders("Desktop")

这个代码什么意思？？？
能否再详细些？？？
谢了

追答

DesktopPath = WSHShell.SpecialFolders("Desktop") 是得到Desktop的位置的。
要更改位置在下一行更改：
Set MyShortcut = WSHShell.CreateShortcut(DesktopPath & "\123.exe.lnk")

中的DesktopPath，改成你要的位置就可以了，如：
Set MyShortcut = WSHShell.CreateShortcut("C:\abc\def\123.exe.lnk")
这样的话，DesktopPath = WSHShell.SpecialFolders("Desktop") 就可以删除了。

Answer 2

echo URL=E:\123\123.exe >>"%userprofile%\桌面\123.url 如果不要改图标、属性、目标之类的这行命令就够了 你保存在文档里重命名后缀为bat即可~