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.

>-----Original Message-----
>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!
>.
>

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")
--
HTH ... Fred


jpdc_luke wrote:
> 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!

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.

--
Sir_George
For better access to newsgroups;
http://www.microsoft.com/windowsxp/p...oups/setup.asp


"jpdc_luke" <(E-Mail Removed)> wrote in message
news:05e101c3bae5$7d9cc8d0$(E-Mail Removed)...
> 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!

Looks familiar, Fred. )

--
All the Best,
Kelly

MS-MVP Win98/XP
[AE-Windows® XP]

Troubleshooting Windows XP
http://www.kellys-korner-xp.com

Repair/Customize Quick Launch, Taskbar and Notification Area
http://www.kellys-korner-xp.com/taskbarplus!.htm

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

"FredP" <!@#$@hotmail.com> wrote in message
news:9CVzb.232706$Dw6.821699@attbi_s02...
> 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")
> --
> HTH ... Fred
>
>
> jpdc_luke wrote:
> > 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!
>
>

Ah ... Hi, Kelly, I should have guessed. ;-)
---
Fred

Kelly wrote:
> Looks familiar, Fred. )
>
>
> "FredP" <!@#$@hotmail.com> wrote in message
> news:9CVzb.232706$Dw6.821699@attbi_s02...
>> 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")
>> --
>> HTH ... Fred
>>
>>
>> jpdc_luke wrote:
>>> 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!

.... 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

FredP wrote:
> 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_luke wrote:
>> 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!

Go to kelly's corner at http://www.kellys-korner-
xp.com/xp_tweaks.htm

line 119 has a registry update to change the drive icon.

>-----Original Message-----
>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.
>
>>-----Original Message-----
>>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!
>>.
>>
>.
>

<LOL> I love it. Thanks, Fred. )

--
All the Best,
Kelly

MS-MVP Win98/XP
[AE-Windows® XP]

Troubleshooting Windows XP
http://www.kellys-korner-xp.com

Repair/Customize Quick Launch, Taskbar and Notification Area
http://www.kellys-korner-xp.com/taskbarplus!.htm

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


"FredP" <!@#$@hotmail.com> wrote in message
news:mh4Ab.434035$Tr4.1216199@attbi_s03...
> ... 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
>
> FredP wrote:
> > 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_luke wrote:
> >> 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!
>
>