Hier nun eine Stabile version zur ParentDirectory() Funktion.
Bitte Beachten
Die Funktion sollte möglichst nur mit Absoluten Pfaden aufgerufen werden.
Ausserdem darf ggf. auch eine Datei mit angegeben werden.
BTW: Vorschläge, Tips, Kritik etc. könnt Ihr hier reinschreiben.
Diesen Thread also Bitte möglichst "sauber" halten. Danke!
Code: Alles auswählen
Procedure.s GetParentDirectory(Dir$)
If Len(Dir$) > 3
If Right(Dir$,1)<>"\" And GetExtensionPart(Dir$)="" : Dir$+"\" : EndIf
Dir$ = GetPathPart(Left(GetPathPart(Dir$), Len(GetPathPart(Dir$))-1))
EndIf
ProcedureReturn Dir$
EndProcedure
Debug GetParentDirectory("\\UBUNTU_DESKTOP\pb-ubuntu32\")
Debug GetParentDirectory("d:\ts-temp\simpsons_006.jpg")
Debug GetParentDirectory("d:\a\b\c\d\e")