由于特殊原因，要做一个安装程序，解压后，我要动态生成一个应用程序的快捷方式到桌面上，请问用VF如何实际。。。。感谢
---------------------------------------------------------------
WshShell=CREATEOBJECT("Wscript.shell")
strDesktop=WshShell.SpecialFolders("AllUsersDesktop") &&定义所有用户到桌面
*strDesktop=WshShell.SpecialFolders("Desktop") &&定义当前用户到桌面
MyShortcut=WshShell.CreateShortcut(strDesktop+"\快捷方式.lnk")
MyShortcut.WindowStyle=4 &&3-最大化 7-最小化 4-正常
MyShortcut.IconLocation="要使用图标"
MyShortcut.TargetPath="目标"
MyShortcut.WorkingDirectory="起始目录"
例子：
WshShell=CREATEOBJECT("Wscript.shell")
strDesktop=WshShell.SpecialFolders("allusersdesktop") &&定义到桌面
MyShortcut=WshShell.CreateShortcut(strDesktop+"\aa.lnk")
MyShortcut.WindowStyle=4 &&3-最大化 7-最小化 4-正常
MyShortcut.IconLocation="c:\bmp\t1.ico"
MyShortcut.TargetPath="d:\test\aa.exe"
MyShortcut.WorkingDirectory="d:\test"