' 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
Charlie has over a decade of experience in website administration and technology management. As the site admin, he oversees all technical aspects of running a high-traffic online platform, ensuring optimal performance, security, and user experience.
