Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ListBox1.Items.Clear()
For Each drive As IO.DriveInfo In IO.DriveInfo.GetDrives
Dim itemText As String = drive.Name
If drive.IsReady AndAlso drive.VolumeLabel <> "" Then
itemText = drive.VolumeLabel
Else
Select Case drive.DriveType
Case DriveType.Fixed : itemText = "Local Disk "
Case DriveType.CDRom : itemText = "CD-ROM "
Case DriveType.Network : itemText = "Network Drive "
Case DriveType.Removable : itemText = "Removable Disk "
Case DriveType.Unknown : itemText = "Unknown "
End Select
End If
itemText &= drive.Name
ListBox1.Items.Add(itemText)
Next
End Sub