Binaryworld - ChangeDriveIcon - Changing the icon of a drive ... [ VB.net -> Windows ]

' 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