PureBoard

Das ganze Problem ist sowieso nur theoretisch vorhanden, weil in der Praxis benötigt niemand das
ParentDir eines nicht existierenden Pfades :mrgreen:
Und bei einem existierenden Pfad ist die herangehensweise sowieso eine andere.
Und deshalb sind alle Lösungen sowieso nur für den *** :twisted:

Es ...

Es wäre eindeutig und wohl das einfachste, wenn man festlegt dass der Parameter für GetParentDirectory() eben nur ein Verzeichnis sein darf.

Genau das war ja auch meine absicht beim erstellen der Funktion. Viele verlassen sich zu sehr darauf das ihnen eine
Funktion gänzlich alles abnimmt. Aber ...

Bin ich nur doof oder kann mir mal einer die jetzt aktuellste Version der "GetParentDirectory" Procedure geben ? :D
Nein, da bisher noch keine korrekt funktioniert!

Blind?
Aber für dich gerne nochmal:

Procedure.s GetParentDirectory(Dir$, Seperator$ = "\", Protocol$ = "")
ProcedureReturn ...

Oh man um die Uhrzeit hab ich wohl nur noch Denkfehler. :lol:
Naja jetzt weis ich was ich falsch gemacht hatte. Hier meine Lösung: :wink:


Procedure.s GetParentDirectory(Dir$)

If Len(Dir$) > 3
Dir$ = GetPathPart(Left(GetPathPart(Dir$), Len(GetPathPart(Dir$))-1))
EndIf

ProcedureReturn Dir ...

Naja, nach dem Edit sollte alles passen, der Bug ist mir auch aufgefallen, allerdings erst NACH dem ersten Posting

Nach einer knappen Stunde Arbeit kam folgende Codezeile heraus:

Procedure.s GetParentDirectory(Dir$, Seperator$ = "\", Protocol$ = "")
ProcedureReturn Protocol$ + Left(RemoveString(Dir$, Protocol$), Len(RemoveString(RemoveString(Dir$, Protocol$), Seperator$, #PB_Ignore, Len(RemoveString(Dir ...