Imports System.IO
 
Public Class frmDrives
 
  Dim strPathSearch As String = "D:\"
  Dim strInfo As String 
  Dim lstDrives As New List(Of String)
 
 
  Private Sub frmDrives_Load(sender As Object, e As System.EventArgs) Handles _
    Me.Load
    Call setDrives()
  End Sub
 
  Private Sub cbDrives_DropDown(sender As Object, e As System.EventArgs) _
    Handles cbDrives.DropDown
    Call setDrives()
  End Sub
 
  Public Sub setDrives()
    lblInfo.Text = strInfo        
    lblInfo.Refresh()
 
    cbDrives.DataSource = Nothing
 
    Call ListDrives()
 
    cbDrives.DataSource = lstDrives
    lblInfo.Text = ""
 
    Call setSelection()        
  End Sub
 
 
  Private Sub ListDrives()
    Dim strLabel As String = ""   
 
    lstDrives.Clear()
 
    For Each d As DriveInfo In DriveInfo.GetDrives           
      Select Case d.DriveType                              
        Case DriveType.Unknown                           
             strLabel = "    Unknown ("                   
        Case DriveType.Fixed                             
             strLabel = "    Lokaler Datenträger ("       
        Case DriveType.
             strLabel = "    Netzlaufwerk ("              
        Case DriveType.CDRom                             
             strLabel = "    CD-ROM-Laufwerk ("           
        Case DriveType.Ram                               
             strLabel = "    Ram ("                       
        Case DriveType.Removable                         
             strLabel = "    Wechseldatenträger ("        
        Case Else
             strLabel = "    unbekannt "
      End Select                                           
 
      Dim add As String = ""
      Dim Name As String = d.Name.Substring(0, 2)
      If Not d.IsReady Then                                
        add = "nicht bereit"
        strInfo = "Einen Moment bitte..." & vbCrLf & "Laufwerk " & Name & "" & _
          "wird geladen"
      End If                                               
 
      lstDrives.Add (strLabel &  Name & ")   " & add)
    Next d                                                   
  End Sub
 
 
  Private Sub setSelection()
    If String.IsNullOrEmpty(strPathSearch) OrElse Not IO.Directory.Exists( _
      strPathSearch) Then
      Me.cbDrives.SelectedIndex = 0                             
    Else                                                          
      For i As Integer = 0 To lstDrives.Count - 1                 
        If lstDrives(i).StartsWith(strPathSearch.Substring(0, 2)) Then
          Me.cbDrives.SelectedIndex = i                     
          Exit For                                          
         End If                                                
      Next i                                                    
    End If                                                        
  End Sub