Yes, I also tried it manually. The Shell Icons key was all that was
needed in Win9x but it did not work in XP.
FWIW, Madonote recognized that the Shell Icons key had been changed
when I did it manually.
Perhaps the icon cache in XP is holding on to the old icon?
Three things (I didn't tried them)
1)
the icon cache seem to be here:
In XP, find the file(s) "IconCache.db" at x:\Documents and
Settings\"profile"\Local Settings\Application Data
I think it should be delete after the tuning up (maybe from outside
WindowsXP)
2)
then a Vbscript I found seems to confirm that the only change
to be made is the one we spoke about the registry:
Option Explicit
Set WSHShell = WScript.CreateObject("WScript.Shell")
Dim WSHShell, n, p, p1, p2, t, cn, itemtype, Mybox, Title, vbdefaultbutton
p =
"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell
Icons\"
p = p & "3"
itemtype = "REG_SZ"
n = ""
WSHShell.RegWrite p, n, itemtype
p =
"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell
Icons\"
p = p & "4"
itemtype = "REG_SZ"
n = ""
WSHShell.RegWrite p, n, itemtype
p1 =
"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell
Icons\"
n = WSHShell.RegRead(p1 & "3")
t = "Change the Folder Icon "
cn = InputBox("Type the Exact Path (follow by example) F:\My
Icons\nameoficon.ico", t, n)
If cn <> "" Then
WSHShell.RegWrite p1 & "3", cn
End If
p1 =
"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell
Icons\"
n = WSHShell.RegRead(p1 & "4")
t = "Change the Opened Folder Icon"
cn = InputBox("Type the Exact Path (follow by example) F:\My
Icons\nameoficon.ico", t, n)
If cn <> "" Then
WSHShell.RegWrite p1 & "4", cn
End If
Title = "Your Folder Icons have been changed. Reboot for the changes to
take effect." & vbCR
Title = Title & "" & vbCR
Title = Title & "To set back to default, run the script again and leave the
entries blank, reboot." & vbCR
MyBox = MsgBox(Title,64,"Finished")
VisitKelly's Korner
Sub VisitKelly's Korner
If MsgBox("This script came from the Tweaks Section of Kelly's Korner"
& vbCRLF & vbCRLF & "Would you like to visit Kelly's Web Site now?",
vbQuestion + vbYesNo + vbDefaultButton, "Visit Kelly's Korner") =6 Then
wshshell.Run "
http://www.kellys-korner-xp.com/xp_tweaks.htm"
End If
End Sub
3)
also I found this about the syntax
with an .ico file
use \\ instead of single slash in the path and if the path contains a space
use \" to enclose the path in quotation marks.
If it was placed in C:\Program Files\Icons it would look like this,
"4"="\"C:\\Program Files\\Icons\\OpenFolder.ico\""