<code><font color=green>' Laufwerk wechseln</font>
Private Sub Drive1_Change()
  On Local Error Resume Next
  Do
    Err = 0
    Dir1.Path = left$(Drive1.Drive, 2)
    If Err = 0 Then Exit Do
    If MsgBox("Vom Laufwerk '" + Drive1.Drive + "' kann nicht gelesen werden.", _
      21) <> 4 Then
      Drive1.Drive = left$(CurDir, 2)
      Exit Do
    End If
  Loop
  Dir1.Refresh
  On Local Error GoTo 0
End Sub
 
<font color=green>' Verzeichnis wechseln</font>
Private Sub Dir1_Change()
  File1.Path = Dir1.Path
  File1.Refresh
End Sub</code>