I am looking for a way to change folder icons using vbscript.. any help appreciated.
I found this script to change file icons.. but how would it work for folders?
I found this script to change file icons.. but how would it work for folders?
Code:
Const DESKTOP = &H10&
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace(DESKTOP)
Set objFolderItem = objFolder.ParseName("Test Shortcut.lnk")
Set objShortcut = objFolderItem.GetLink
objShortcut.SetIconLocation "C:\Windows\System32\SHELL32.dll", 13
objShortcut.Save