Assigning icon to shortcut
Hi
I need VB script to assign a icon(.ico) to the shortcut(.lnk).
I need VB script to assign a icon(.ico) to the shortcut(.lnk).
0 Comments
[ + ] Show comments
Answers (5)
Please log in to answer
Posted by:
AngelD
15 years ago
set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
set oShellLink = WshShell.CreateShortcut(strDesktop & "\My Shortcut.lnk")
oShellLink.IconLocation = "C:\Icon.ico"
oShellLink.Save
strDesktop = WshShell.SpecialFolders("Desktop")
set oShellLink = WshShell.CreateShortcut(strDesktop & "\My Shortcut.lnk")
oShellLink.IconLocation = "C:\Icon.ico"
oShellLink.Save
Posted by:
nrkres
15 years ago
Thanks for ur reply.
but the lnk file is not in Desktop. C:\Documents and Settings\All Users\Start Menu\Applications\abc.lnk.
If that is the case what should i give in the script
Regards,
NRK
but the lnk file is not in Desktop. C:\Documents and Settings\All Users\Start Menu\Applications\abc.lnk.
If that is the case what should i give in the script
Regards,
NRK
Posted by:
zipsantro
15 years ago
strPrograms = WshShell.ExpandEnvironmentStrings("%ALLUSERSPROFILE%") & "\Start Menu\Applications"
set oShellLink = WshShell.CreateShortcut(strPrograms & "\abc.lnk")
In the operating system we have few Environment Varables and few special folders. VBScript invokes them with two funtions and those are SpecialFolders (If using Special Folders) and ExpandEnvironmentStrings (Env var needs to be expanded before use).
Hope this help you understand.
set oShellLink = WshShell.CreateShortcut(strPrograms & "\abc.lnk")
In the operating system we have few Environment Varables and few special folders. VBScript invokes them with two funtions and those are SpecialFolders (If using Special Folders) and ExpandEnvironmentStrings (Env var needs to be expanded before use).
Hope this help you understand.
Rating comments in this legacy AppDeploy message board thread won't reorder them,so that the conversation will remain readable.