Option Explicit
 
Private Sub Command1_Click()
    Dim sPath As String
    Dim i As Long
 
    sPath = Dir1.Path
    For i = Len(sPath) To 1 Step -1
        If Mid(sPath, i, 1) = "\" Then Exit For
    Next i
 
    sPath = Left(sPath, i - 1)
 
    Dir1.Path = sPath
    Dir1.Refresh
End Sub
 
Private Sub Dir1_Change()
    File1.Path = Dir1.Path
End Sub
 
Private Sub Drive1_Change()
    Dir1.Path = Drive1.Drive
End Sub

Gru? Michi aus Hannover

1 + 1 = 3 f?r hinreichend gro?e 1