asp怎么在桌面上创建快捷方式？

 

1. <script language="VBScript">  
2.  
3.  
4. Set Shell = CreateObject("WScript.Shell")  
5.  
6.  
7. DesktopPath = Shell.SpecialFolders("Desktop")  
8.  
9.  
10. Set link = Shell.CreateShortcut(DesktopPath + "\IT知道网.lnk")  
11.  
12.  
13. link.Description = "IT知道网" 
14.  
15.  
16. link.TargetPath = "" 
17.  
18.  
19. link.Save()  
20.  
21.  
22. </script>  

 

转载于:https://blog.51cto.com/fenxiangla/1130594