Imports System.IO
 
Public Class frmDrives
 
    Dim strPathSearch As String = "D:\"
 
    Dim lblInfo As New Label With _
         {.Parent = Me, .Top = 30, .Width = 400}
 
    Dim lstDrives As New List(Of String)
 
    Dim WithEvents cbDrives As New ComboBox With _
          {.Parent = Me, .Width = 400}
 
 
 
    Private Sub frmDrives_Load(sender As System.Object, _
        e As System.EventArgs) Handles MyBase.Load
 
        setDrives()
    End Sub
 
 
 
    Private Sub ListDrives()
 
        Dim strLabel As String = ""                     ' Laufwerkbezeichnung
        lstDrives.Clear()
 
        For Each d As DriveInfo In DriveInfo.GetDrives  ' alle vorh. LW 
        ' durchlaufen
            Select Case d.DriveType                       '   Select Case 
            ' Laufwerkstyp
                Case DriveType.Unknown                      '   - 1: Unknown
                    strLabel = "    Unknown ("                   '        Text
                Case DriveType.Fixed                       '   - 3: Fixed
                    strLabel = "    Lokaler Datenträger ("       '        Text
                Case DriveType.Network                      '   - 4: 
                ' Netzlaufwerk
                    strLabel = "    Netzlaufwerk ("              '        Text
                Case DriveType.CDRom                       '   - 5: CDRom
                    strLabel = "    CD-ROM-Laufwerk ("           '        Text
                Case DriveType.Ram                          '   - 5: Ram
                    strLabel = "    Ram ("                       '        Text
                Case DriveType.Removable                   '   - 6: 
                ' Wechseldatenträger
                    strLabel = "    Wechseldatenträger ("        '        Text
                Case Else
                    strLabel = "    unbekannt "
            End Select                                    '   End Select
 
 
            Dim add As String = ""
            If Not d.IsReady Then                      '   wenn Laufwerk bereit
                add = "nicht bereit"
            End If
 
            lstDrives.Add _
              (d.Name.Substring(0, 2) & "   (" & strLabel & ")   " & add)
        Next d                                            ' nächstes Laufwerk
    End Sub
 
 
 
    Public Sub setDrives()
 
        lblInfo.Text = "Laufwerke werden ermittelt ...."
        lblInfo.Refresh()
 
        cbDrives.DataSource = Nothing
 
        ListDrives()
 
        cbDrives.DataSource = lstDrives
        lblInfo.Text = ""
 
        Call setSelection()                             ' -> setSelection()
 
    End Sub
 
 
 
    Private Sub setSelection()
 
        If String.IsNullOrEmpty(strPathSearch) OrElse _
           Not IO.Directory.Exists(strPathSearch) Then
 
            Me.cbDrives.SelectedIndex = 0                 '   Vorgabe: 1. gef. 
            ' LW
 
            'tvFolders.SelectedNode = tvFolders.Nodes(0)   '
            'tvFolders.SelectedNode.Expand()               '
 
        Else                                            ' Else...  (Pfad 
        ' vorhanden)
            For i As Integer = 0 To lstDrives.Count - 1      '   alle gef. LW 
            ' durchlaufen
                '     wenn 1./2.Zeichen
                If lstDrives(i).StartsWith(strPathSearch.Substring(0, 2)) Then
                    Me.cbDrives.SelectedIndex = i             '       Vorgabe: 
                    ' gef. LW
                    Exit For                                  '       -> 
                    ' Schleife verlassen
                End If                                      '     End If
            Next i                                         '   nächstes LLW
 
            'Call setSelection(strPathSearch, tn)          '   -> setSelection()
        End If                                          ' End If
    End Sub
 
 
 
    Private Sub cbDrives_DropDown(sender As Object, _
        e As System.EventArgs) Handles cbDrives.DropDown
        setDrives()
    End Sub
 
End Class