Private Sub setDrives()
  Try
    Erase intTypArr
    cbDrives.Items.Clear
    ReDim Preserve intTypArr(DriveInfo.GetDrives.Length - 1, 1)
 
    Dim i As Integer = 0
    For Each d As DriveInfo In DriveInfo.GetDrives 
      Select Case d.DriveType
        Case DriveType.Unknown
          intTypArr(i,0) = " Unknown (" & d.Name.Substring(0, 2) & ")"
          intTypArr(i,1) = "1"
        Case  DriveType.Fixed
          If Asc(d.Name.Substring(0,1)) > 68 Then
            intTypArr(i,0) = " " & d.VolumeLabel & " (" & d.Name.Substring(0, _
              2) & ")"
            intTypArr(i,1) = "4"
          Else
            intTypArr(i,0) = " Laufwerk (" & d.Name.Substring(0, 2) & ")"
            intTypArr(i,1) = "3"
          End If
        Case DriveType.Network
          intTypArr(i,0) = " Netzlaufwerk (" & d.Name.Substring(0, 2) & ")"
          intTypArr(i,1) = "4"
        Case  DriveType.CDRom
          If d.IsReady = False Then Continue For
          intTypArr(i,0) = " DVD-RW-Laufwerk (" & d.Name.Substring(0, 2) & ")"
          intTypArr(i,1) = "5"
        Case DriveType.Ram
          intTypArr(i,0) = " Ram (" & d.Name.Substring(0, 2) & ")"
          intTypArr(i,1) = "5"
        Case  DriveType.Removable
          If d.IsReady = False Then Continue For 
          intTypArr(i,0) = " " & d.DriveType.ToString & " (" & d.Name.Substring( _
            0, 2) & ")"
          If d.Name = "A:\" OR d.Name = "B:\" Then
            intTypArr(i,1) = "2"
           Else
            intTypArr(i,1) = "6"
          End If
      End Select      
 
      Me.cbDrives.Items.Add(intTypArr(i,0))
      i += 1
    Next
 
  Catch ex As Exception
    MsgBox("Fehler: " & ex.ToString, MsgBoxStyle.Information, "Fehler in" & _
      "'setDrives()'")
  End Try
End Sub