I was affraid you were going to say that. I cleaned up my hard drive and deleted the application I used to create this icon ( 6 to 9 mo ago ). So, got a recomendation for an Icon editor?


>Although this doesn't help you becuase I don't know much about WSH, I would say that my answer is still correct. Somehow WSH is losing, or not creating, that 16X16 part of the icon.
>
>>I really thought you had it but no luck. I checked the one made with the setup wizard and it was fine under the koinonia folder using the same icon file. I even tried looking at that one using the explorer - correct icon.
>>
>>When I look at the one created using WSH using explorer - fox icon. I look at it using my computer - my icon. I try to run the program from the start bar - fox icon. :(
>>
>>When I created the icon file I used a 32x32 file using a third party icon editor. That's why I thought you had it on the head. I don't know why it is working in setup and not WSH.
>>
>>Terry
>>
>>>It's probably the icon file and has nothing to do with WSH. The icon file must contain one 16X16 icon for small icon views (i.e. details view in explorer) and one 32X32 icon for large icon views (i.e. the desktop).
>>>
>>>>I am using the WSH to create links for my application. The proper icon (the one associated with the app) showes up on the Desktop link but does not on the programs\koinonia link. I even tried to set the IconLocation property but no luck. By the way what are the index values. The example in the help file shows a 0 but does not explain what others there are and what they mean :(
>>>>
>>>>Here is the code:
>>>>
>>>>***********************************************************************************
>>>>*** Install the Desktop link
>>>>***********************************************************************************
>>>>oShell = CREATEOBJECT("WScript.Shell")
>>>>lcApplication = lcInstallPath + "FFA.exe"
>>>>lcDesc = "FFA Program"
>>>>lcDeskTop = oShell.SpecialFolders("DeskTop")
>>>>lcLnk = lcDeskTop + "\FFA Program.lnk"
>>>>oLNKDesktop = oShell.CreateShortCut(lcLnk)
>>>>oLNKDesktop.Description = lcDesc
>>>>oLNKDesktop.TargetPath = lcApplication
>>>>oLNKDesktop.WindowStyle = 3
>>>>oLNKDesktop.WorkingDirectory = lcInstallPath
>>>>oLNKDesktop.Save
>>>>
>>>>*******************************************************************************
>>>>*** Install the Koinonia folder link
>>>>*******************************************************************************
>>>>oShell = CREATEOBJECT("WScript.Shell")
>>>>lcApplication = lcInstallPath + "FFA.exe"
>>>>lcIcon = lcApplication + ", 0"
>>>>lcDesc = "FFA Program"
>>>>lcPrograms = oShell.SpecialFolders("Programs")
>>>>lcLnk = lcPrograms + "\Koinonia\FFA Program.lnk"
>>>>oLNKKoinonia = oShell.CreateShortCut(lcLnk)
>>>>oLNKKoinonia.Description = lcDesc
>>>>oLNKKoinonia.TargetPath = lcApplication
>>>>oLNKKoinonia.WindowStyle = 3
>>>>oLNKKoinonia.WorkingDirectory = lcInstallPath
>>>>oLNKKoinonia.IconLocation = lcIcon
>>>>oLNKKoinonia.Save
>>>>
>>>>return
>>>>
>>>>
>>>>Ed you out there
>>>>
>>>>Thanks in advance
>>>>Terry