VBS 创建快捷方式

Dim Shell,DesktopPath,link

Set Shell = CreateObject("WScript.Shell")

DesktopPath = Shell.SpecialFolders("Desktop")

Set link = Shell.CreateShortcut(DesktopPath & "\Aimp2.lnk")

link.TargetPath = shell.CurrentDirectory & "\Aimp2.exe"

link.WindowStyle = 1

link.WorkingDirectory = shell.CurrentDirectory

link.Save

Set Shell = Nothing

Set link = Nothing

VBS 创建快捷方式

原文：http://www.cnblogs.com/lbnnbs/p/4781991.html