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://troubleshootingXP/xp_tweaks.htm"

	End If

End Sub