Dim pParent as PathBox
Dim pPath as String * 260 'enthält den Namen den die PathBox vertrit
Dim PathBoxCol as Collection
 
Property Set Parent(Box as PathBox)
        set pParent = Box
        'wenn Ich an dieser stelle das pParent abfrage hat es eigentlich die 
        ' richtigen werte!End Property
 
Property Let Parent() as PathBox
        Set Parent  = pParent
end Property
 
Function FullPath()
        FullPath = pPath
again:
        Set Box = Parent
        if Not Box is Nothing then
                FullPath = Box.Path & FullPath
                Set Box = Box.Parent
                goto again
        end if
Exit Function

MFG ....


Wenn es das Forum nicht g?b, ich glaub ich h?tte meine Fragen in gro?en Buchstaben in den Sand geschrieben.

Hoffentlich kommt ein Schiff und Jemand kennt eine passende Antwort darauf...