How to Change Drive Icons, Not using "autorun.inf" Trick

  • Thread starter Thread starter jpdc_luke
  • Start date Start date
J

jpdc_luke

Is there a registry key/program that will allow me to
change the Icons in "My Computer" to something else
besides the standard icons?


Thanks!
 
i think you can only change them if they are on the
desktop or quick launch bar next to start button. use
right click to properties and change icon button.
 
Can't remember where I got this so I apologize for not giving credit where
due ... but copy the following lines that are between (but not incuding) the
'--' marks into Notepad and save it as a VBS file ... i.e. 'DriveIcons.vbs',
and then run the saved file. You can select whatever icons you've
stored/downloaded/created.
--
Option Explicit

Set WSHShell = WScript.CreateObject("WScript.Shell")
Dim WSHShell, n, p, p1, p2, t, cn, itemtype, Mybox, Title

p =
"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell
Icons\"
p = p & "8"
itemtype = "REG_SZ"
n = ""
WSHShell.RegWrite p, n, itemtype

p1 =
"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell
Icons\"

n = WSHShell.RegRead(p1 & "8")
t = "Change Your Hard Drive Icon "
cn = InputBox("Type the Exact Path (follow by example) F:\My
Icons\nameoficon.ico", t, n)
If cn <> "" Then
WSHShell.RegWrite p1 & "8", cn
End If

Title = "Your Hard Drive 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
entry blank, reboot." & vbCR
MyBox = MsgBox(Title,4096,"Finished")
 
jpdc,

HOW TO CHANGE ICON & RENAME A DRIVE LETTER IN WINDOWS XP

This tweak allows you to change the name and icon shown in Explorer for a
specific drive letter.

Open your registry and find the key below. If the key does not already exist
then create it.

Within the main key create a new sub-key with a single letter representing
the drive letter of the drive to be modified. (e.g. [HKEY...\DriveIcons\D])

Within the drive letter key create another sub-key called "DefaultIcon"
(e.g. [HKEY...\DriveIcons\D\DefaultIcon]) and set the "(Default)" value to
equal the fully qualified name of the icon file. If the file contains more
that one icon follow it with a comma and the zero-based index of the icon
(e.g. "c:\icons\myicons.dll,4").

Create another sub-key within the drive letter key called "DefaultLabel"
(e.g. [HKEY...\DriveIcons\D\DefaultLabel]) and set it's "(Default)" value to
equal the label for the drive letter (e.g. "My ZIP Drive").

For example: HKEY_LOCAL_MACHINE
Software
Microsoft
Windows
CurrentVersion
Explorer
DriveIcons
D
DefaultIcon
(Default) = c:\icons\myicons.dll,4
DefaultLabel
(Default) = My ZIP Drive

You may need to restart Windows for the change to take effect, or press F5
to refresh My Computer.

Note: The "DefaultLabel" value only works with Windows 2000 and higher.
 
.... the preceding VBS script is from that extremely talented and
extraordinarily valuable MVP, Kelly Theriot, and is available at her site
'Kelly's Korner' at www.kellys-korner-xp.com (Hope I've made it up to you,
Kelly ... [grin])
 
<LOL> I love it. Thanks, Fred. :o)



Registry Edits, Tips and Tricks for XP
http://www.kellys-korner-xp.com/xp_tweaks.htm


FredP said:
... the preceding VBS script is from that extremely talented and
extraordinarily valuable MVP, Kelly Theriot, and is available at her site
'Kelly's Korner' at www.kellys-korner-xp.com (Hope I've made it up to you,
Kelly ... [grin])
--
Fred
Can't remember where I got this so I apologize for not giving credit
where due ... but copy the following lines that are between (but not
incuding) the '--' marks into Notepad and save it as a VBS file ...
i.e. 'DriveIcons.vbs', and then run the saved file. You can select
whatever icons you've stored/downloaded/created.
--
Option Explicit

Set WSHShell = WScript.CreateObject("WScript.Shell")
Dim WSHShell, n, p, p1, p2, t, cn, itemtype, Mybox, Title

p =
Click to expand...
"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell
Icons\"
p = p & "8"
itemtype = "REG_SZ"
n = ""
WSHShell.RegWrite p, n, itemtype

p1 =
Click to expand...
"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell
Icons\"

n = WSHShell.RegRead(p1 & "8")
t = "Change Your Hard Drive Icon "
cn = InputBox("Type the Exact Path (follow by example) F:\My
Icons\nameoficon.ico", t, n)
If cn <> "" Then
WSHShell.RegWrite p1 & "8", cn
End If

Title = "Your Hard Drive 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 entry blank, reboot." & vbCR
MyBox = MsgBox(Title,4096,"Finished")
Click to expand...
Click to expand...
 
Back
Top