Imports System.IO 
 
Public Class frmMain
  Dim strPathSearch As String = "C:\"
  'Dim tn As TreeNode = Nothing
 
 
 
  Private Sub frmMain_Load (...) Handles Me.Load 
   Call setDrives()
  End Sub
 
  Private Sub cbDrives_DropDown (...) Handles cbDrives.DropDown 
    Call setDrives()
  End Sub
 
 
  Public Sub setDrives()
    Dim strLabel As String = ""                     ' Laufwerkbezeichnung
 
    Me.cbDrives.Items.Clear                         ' alle Elemente entfernen
 
    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
      End Select                                    '   End Select
 
      If d.IsReady = True Then                      '   wenn Laufwerk bereit
        Me.cbDrives.Items.Add(strLabel & d.Name.Substring(0,2) & ")")
      Else                                          '   Else...  (nicht bereit)
        Me.cbDrives.Items.Add(strLabel & d.Name.Substring(0,2) & ")  nicht" & _
          "bereit")
      End If                                        '   End If
    Next                                            ' nächstes Laufwerk
 
    Call setSelection()                             ' -> setSelection()
  End Sub
 
 
  Private Sub setSelection() 
    If Directory.Exists(strPathSearch) = False Or strPathSearch = "" Then 
      Me.cbDrives.SelectedIndex = 0                 '   Vorgabe: 1. gef. LW
 
      'tvFolders.SelectedNode = tvFolders.Nodes(0)   '
      'tvFolders.SelectedNode.Expand()               '
 
    Else                                            ' Else...  (Pfad vorhanden)
      For i = 0 To Me.cbDrives.Items.Count - 1      '   alle gef. LW durchlaufen
                                                    '     wenn 1./2.Zeichen
        If InStr(Me.cbDrives.Items.Item(i).ToString, _
                                           strPathSearch.Substring(0,2)) > 0 Then 
          Me.cbDrives.SelectedIndex = i             '       Vorgabe: gef. LW
          Exit For                                  '       -> Schleife verlassen
        End If                                      '     End If
      Next                                          '   nächstes LLW
 
      'Call setSelection(strPathSearch, tn)          '   -> setSelection()
    End If                                          ' End If
 
End Class