Change icon of folder with script 1

[smcc12]

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?

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

 

[shinedog]

Not sure about doing it with VBScript but you can easily do this by using desktop.ini.

For example, let's say you have a folder called C:\CustomFolder. In that folder you have C:\CustomFolder\desktop.ini. In the desktop.ini, you would have something like:

[.ShellClassInfo]
IconFile=C:\CustomIcons\CustomFolderIcon.ico
IconIndex=0

Make the folder a system folder (e.g. attrib c:\CustomerFolder +s or do it through WMI) and tada! C:\CustomerFolder should now display with the custom icon.

You could write a VBScript to create the desktop.ini on the fly and change the folder's system property.

When you use the Change Icon button on the Customize tab of the folder properties, it just writes a desktop.ini to that folder with the contents I listed above.

 

[Geates]

I like what Shinedog suggests. It may not be "proper" but it's the route I would probably take. For real-life examples of his suggestion, look at the MyFolders\desktop.ini (My Documents, Music, Pictures)

-Geates

 

[smcc12]

Thank you very much, this is exactly what I needed.