QUOTE (BoardBabe @ Oct 21 2005, 11:14 PM)

But HOW can the icon change also be applied please?
I'm doing it like this:
CODE
On Error Resume Next
' Our variables here
Dim fs : set fs = WScript.CreateObject("Scripting.FilesystemObject")
Dim WSH : set WSH= WScript.CreateObject("WScript.Shell")
Dim AUProgs: AUProgs= WSH.SpecialFolders("AllUsersPrograms")
' Create shortcut within %ProgramFiles%\Packer\WinRAR (existing folder)
LinkIt AUProgs & "\Packer\WinRAR 3.51.lnk", "", "", _
"%ProgramFiles%\Packer\WinRAR\Themes\WinRAR_Gorilla_32x32\RAR.ico,0", _
"%ProgramFiles%\Packer\WinRAR\WinRAR.exe", ""
WScript.Quit
Sub LinkIt(lnkObj, strArgs, strDscr, strIcon, strProg, strWDir)
Dim oLnk : set oLnk = WSH.CreateShortcut(lnkObj)
oLnk.Arguments = strArgs
oLnk.Description = strDscr
oLnk.IconLocation= strIcon
oLnk.TargetPath = strProg
oLnk.WorkingDirectory= strWDir
oLnk.Save
End Sub
Just replace "\Packer" with nothing (i.e. delete it) or
kompressorer or however compression progs are called in Norwegian.
HTH