Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: VB7
Expertise: beginner
Jun 30, 2003

ChangeDriveIcon - Changing the icon of a drive

' Change the icon of a drive
' Example: ChangeDriveIcon("d", "c:\myicon.ico")

Sub ChangeDriveIcon(ByVal driveLetter As String, ByVal icoPath As String)
    ' create the parent key
    Dim regKey As Microsoft.Win32.RegistryKey = _
        Microsoft.Win32.Registry.LocalMachine.CreateSubKey( _
        "Software\Microsoft\Windows\CurrentVersion\Explorer\DriveIcons\" & _
        driveLetter & "\DefaultIcon")
    ' set the (Default) value with the icon's path
    regKey.SetValue("", icoPath)
    regKey.Close()
End Sub

' Reset the icon of a drive
Sub ResetDriveIcon(ByVal driveLetter As String)
    ' delete the key
    Try
        Microsoft.Win32.Registry.LocalMachine.DeleteSubKey( _
            "Software\Microsoft\Windows\CurrentVersion\Explorer\DriveIcons\" & _
            driveLetter)
    Catch ex As Exception
    End Try
End Sub
Pampati Praveenp
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap
Thanks for your registration, follow us on our social networks to keep up-to-date