home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 53 / IOPROG_53.ISO / soft / sharpdevelop / install.vbs next >
Encoding:
Text File  |  2001-10-26  |  1.3 KB  |  37 lines
  1. ' INSTALL A SHORTCUT LINK TO SHARPDEVELOP AND HELP FILE ON DESKTOP
  2.  
  3. Option Explicit
  4.  
  5. ' Declare all variables used
  6. Dim WshShell, strDesktop, strWorkingDir, nPos, strShortcut,oShellLink
  7.  
  8. ' Initialize all constants
  9. Const cShortcutlink = "\SharpDevelop .80.lnk"
  10. Const cDescription = "A free .NET development environment"
  11. Const cExecutable = "SharpDevelop.exe"
  12. Const cHelpShortcut = "\SharpDevelop Help.lnk"
  13. Const cHelpLocation = "doc\Program\SharpDevelop.chm"
  14. Const cHelpDescription = "Help for SharpDevelop"
  15.  
  16. Set WshShell = WScript.CreateObject("WScript.Shell")
  17. strDesktop = WshShell.SpecialFolders("Desktop")
  18.  
  19. strWorkingDir = WScript.ScriptFullName
  20. nPos = InstrRev(strWorkingDir, "\")
  21. strWorkingDir = Left(strWorkingDir, nPos) 
  22. strShortcut = strWorkingDir & cExecutable
  23.  
  24. Set oShellLink = WshShell.CreateShortcut(strDesktop & cShortcutlink)
  25. oShellLink.TargetPath = strShortcut
  26. oShellLink.WindowStyle = 1
  27. oShellLink.Description = cDescription
  28. oShellLink.WorkingDirectory = strWorkingDir
  29. oShellLink.Save
  30.  
  31. Set oShellLink = WshShell.CreateShortcut(strDesktop & cHelpShortcut)
  32. oShellLink.TargetPath = strWorkingDir & cHelpLocation
  33. oShellLink.WindowStyle = 1
  34. oShellLink.Description = cHelpDescription
  35. oShellLink.WorkingDirectory = strWorkingDir
  36. oShellLink.Save
  37.