devxlogo

ChangeDriveIcon – Changing the icon of a drive

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( _        "SoftwareMicrosoftWindowsCurrentVersionExplorerDriveIcons" & _        driveLetter & "DefaultIcon")    ' set the (Default) value with the icon's path    regKey.SetValue("", icoPath)    regKey.Close()End Sub' Reset the icon of a driveSub ResetDriveIcon(ByVal driveLetter As String)    ' delete the key    Try        Microsoft.Win32.Registry.LocalMachine.DeleteSubKey( _            "SoftwareMicrosoftWindowsCurrentVersionExplorerDriveIcons" & _            driveLetter)    Catch ex As Exception    End TryEnd Sub

devx-admin

Share the Post: