Public Function HideLastFolder(ByVal Path As Object, _
                               ByRef Rest As Object, _
                               ByRef NewPath As Object)
 
 
 
Dim i As Integer
 
Dim strTemp As String
Dim intStelle As Integer
Dim intStatus As Integer
Dim intLenTemp As Integer
Dim strTempFolder As String
Dim intStrWortLänge As Integer
Dim intPathLänge As Integer
 
intStatus = 0
 
    For i = 1 To 500
 
        strTemp = Left(Path, i)
 
        If Right(strTemp, 1) = "/" Then
            intPathLänge = Len(Path)
                intLenTemp = Len(strTemp)
                    strWort = Left(Path, intLenTemp - 1)
                        intStrWortLänge = Len(strWort)
                            Rest = Right(Path, intPathLänge - (intStrWortLänge _
                              + 1))
                                Path = Left(Path, intStrWortLänge) & "\"
 
           intStatus = 1
        If intStatus = 1 Then
            Exit For
        End If
 
        End If
 
 
    Next i
 
End Function