Set b=a.CreateShortcut(a.SpecialFolders("Desktop") & "\快捷方式名称.lnk")改成Set b=a.CreateShortcut("快捷方式名称.lnk")这样就能在当前目录下创建了，如果需要在其它目录创建，再改成Set b=a.CreateShortcut("其它路径\快捷方式名称.lnk")
