Re: Trying to change an icon for a shortcut via vbs/command line
  Home FAQ Contact Sign in
microsoft.public.windowsxp.customize only
 
Advanced search
POPULAR GROUPS

more...

 Up
Re: Trying to change an icon for a shortcut via vbs/command line         

Group: microsoft.public.windowsxp.customize · Group Profile
Author: a_nonymous
Date: Jul 27, 2008 21:18

"booker@mgt" wrote:
> I have the following vbs script running as a logon script. But everytime it
> runs, When the shortcut is created, it is created with the symbol of no icon.
> How can I direct the icon location to an actual windows system icon file.
> When I open up a file via properties, and browse for a new icon, it directs
> me to look in shell32.dll, but I can't find a way to get to all of those
> icons shown in that window.
> Thanks
>
> set objShell = Wscript.Createobject("Wscript.Shell")
> strDesktopFld = objShell.SpecialFolders("Desktop")
> Set objURLShortcut = objShell.createShortcut(strDesktopFld &
> "\Install-CoM-Applications.lnk")
> 'Name for Shortcut to add
> objURLShortcut.Targetpath = "http://localhost:9595/webportal/webportal.exe"
> 'Path to icon
> objURLShortcut.IconLocation = "C:\WINDOWS\system32\oobe\images\thanks8.png"
> 'Path for Shortcut
> objURLShortcut.Save

In 'Path for Icon' line,
"C:\WINDOWS\system32\shell32.dll,0"
will use the first icon in the file 'shell32.dll'. The number after the ','
is the zero-based index of the icon in any file which contains at least one icon.

In the 'Change Icon' dialog, the index value of the top-left icon is '0'.
0 4 8 ...
1 5 ...
2 6 ...
3 7 ...

(Your 'Path to icon' and 'Path for Shortcut' comments are transposed.)
no comments
diggit! del.icio.us! reddit!

RELATED THREADS
SubjectArticles qty Group
请问现在出了vb.net 还有必要学vb吗?cn.bbs.comp.lang.visual-basic ·
Re: VB 2005 DDL in VB 6.0 projectmicrosoft.public.vb.general.discussion ·