使用批处理命令为bat文件和exe文件创建快捷方式到桌面

Question

如题，我在网上找了好多用批处理命令为exe文件创建快捷方式的，但每一个成功的。我的要求是，有一文件1.bat在任意位置，位置不定，所以只能写出相对路径，不能写出绝对路径（我突然想如果用批处理找到1.bat，以得到它的绝对路径，可能更容易些），要求写一个“创建快捷方式到桌面.bat”，双击后就在桌面生成快捷方式。请高手帮忙写一个bat。
最好能自定义ico图标，谢谢。
在线等

Answer 1

@Echo Off
mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""\1.lnk""):b.TargetPath=""%~dp01.bat"":b.WorkingDirectory=""%~dp0"":b.Save:close")
Pause

简单的,把此批处理和要创建快捷方式的1.bat放在一起就是可以创建快捷方式到桌面了,具体自行修改路径.或者说明如何能找到你所说的文件路径.

追问

如何自定义ico图标呢？比如1.ico和1.bat在同一文件夹内

追答mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""\1.lnk""):b.TargetPath=""%~dp01.bat"":b.WorkingDirectory=""%~dp0"":b.IconLocation=""%~dp01.ico"":b.Save:close")

Answer 2

请问你是想把一个程序建一个快捷方式在桌面吗？追问

准确的说是想把一个位置任意的bat文件，创建一个可自定义ico的快捷方式到桌面上。谢谢

Answer 3

这也太能装了。