一行批处理代码搞定文件的快捷方式到桌面

mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") &
""\(程序名称如QQ).lnk""):b.TargetPath=""%~dp0(程序路径如
:Bin\QQ.exe)"":b.WorkingDirectory=""%~dp0(起始位置如:Bin\)"":b.Save:close")
--
yiyi <hdp5252@gmail.com>