Auf übergeordneten Ordner zugreifen (Relativ!)

[xZise]

Ich möchte auf den übergeordneten Ordner zugreifen allerdings aus einem Relativen Pfad heraus!

Beispiele:

1. Zitat:

   Da liegt die Datei:
   C:\ABC\def\Mein Ordner
   
   Darauf möchte ich zugreifen:
   C:\ABC\def

2. Zitat:

   Da liegt die Datei:
   C:\Ordner1\Ordner2\Mein Ordner
   
   Darauf möchte ich zugreifen:
   C:\Ordner1\Ordner2

[DGL-luke]

Auch die Windows API kennt den ".."-"Operator"

[ErazerZ]

Delphi-Quellcode:

function UpFolder(Path: String): String;
var
  i: Integer;
begin
  if Copy(Path, Length(Path), 1) = '\' then
    Delete(Path, Length(Path), 1);
  i := LastDelimiter('\', Path);
  Delete(Path, i +1, Length(Path));
  Result := Path;
end;

[xZise]

@ DGL: Könntest du die Anwendung genauer erklären?

Zitat:

if FileExists('..' + ExtractFilePath(FLDatei.FileName) + 'freggels.exe') then

[DGL-luke]

ja, man kann sichs auch kompliziert machen...

@xZise:

[Windowstaste]+'r' => Eingeben: "C:\WINDOWS\..\" => [Enter] => Staunen...

EDIT: PS: mein nick hat eigentlcih mit dialogen nix zu tun

[xZise]

WOW ^^ Genial

(aso: edit im Post davor )