Private Sub Command1_Click()
    Dim fso As New FileSystemObject
    Dim sFolderName As String
    Dim sTemp As String
    Dim s As String
 
    s = "E:\Visual Basic\Eigene Programme\Hund\form1.frm"
 
    sTemp = fso.GetParentFolderName(s)
    Do While Len(sTemp) > 3
        sFolderName = Mid(sTemp, InStrRev(sTemp, "\") + 1)
        MsgBox sFolderName
        sTemp = fso.GetParentFolderName(sTemp)
    Loop
 
    Set fso = Nothing
End Sub

Gru? Michi aus Hannover

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