>I am shelling out from my VFP app to a WSH VBScript file. How can I staple an icon on to the executing script?
>
>Thanks.
Do you mean a shortcut icon?
if so I use this
** MakeSC()
LPARAMETERS tcLink, tcTargetPath, tcDescription, tcWorkingDirectory
LOCAL loShell, loShortcut, lcDesktop
loShell = CREATEOBJECT("WScript.Shell")
lcDesktop = loShell.SpecialFolders("Desktop")
loShortcut = loShell.CreateShortcut(lcDesktop + "\\" + tcLink + ".lnk")
loShortcut.TargetPath = tcTargetPath
loShortcut.WindowStyle = 1
loShortcut.Description = tcDescription
loShortcut.WorkingDirectory = tcWorkingDirectory
loShortcut.Save()
And the icon is carried over from the exe, I am also having icon problems