GetParentDirectory()
Verfasst: 08.04.2010 18:18
Hi All,
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!
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")