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>  

 

你可能感兴趣的:(asp,快捷)