letzten Ordner eines Pfades ermitteln

[Helmi]

Hallo,

gibt es eine Funktion, mit der man den letzten Ordner eines Pfades,z. B.

Zitat:

C:\OrdnerA\OrdnerAA\OrdnerAAA

ermitteln kann (im Beispiel "OrdnerAAA")?

[Dalai]

ExtractFileName?

MfG Dalai

[sx2008]

Woher weiss man, ob das ein Verzeichnis oder eine Datei ist?

Delphi-Quellcode:

ExtractFilename('C:\OrdnerA\OrdnerAA\OrdnerAAA')

würde den String 'OrdnerAAA' liefern.

[Helmi]

mmh - danke! - auf ExtractFileName wär ich jetzt nicht gekommen.

Aber natürlich ist es so - schliesslich kann das Letzte nur ein Ordner oder eine Datei sein (und die ohne Erweiterung)

[Bernhard Geyer]

Zitat:

Zitat von sx2008 (Beitrag 1198919)

Woher weiss man, ob das ein Verzeichnis oder eine Datei ist?

Einfach das Betriebssystem (Dateiattribute) fragen: http://www.delphidabbler.com/codesni...es=IsDirectory

[Sir Rufo]

Zitat:

Zitat von Helmi (Beitrag 1198914)

Hallo,

gibt es eine Funktion, mit der man den letzten Ordner eines Pfades,z. B.

Zitat:

C:\OrdnerA\OrdnerAA\OrdnerAAA

ermitteln kann (im Beispiel "OrdnerAAA")?

[Klugscheissermodus AN]

Das ist kein Pfad sondern ein Verzeichnis

Zitat:

Zitat von Verzeichnis

C:\OrdnerA\OrdnerAA\OrdnerAAA

Zitat:

Zitat von Pfad

C:\OrdnerA\OrdnerAA\OrdnerAAA\

[Klugscheissermodus AUS]

ExtractFileName kontrolliert nicht, ob die angegebene Datei existiert oder ob es sich wirklich um eine Datei oder ein Verzeichnis handelt. Es wird schlicht und ergreifend der Pfad aus dem übergebenen String entfernt.

Übergibt man das Verzeichnis (l.t. Definition oben) dann ist das Ergebnis "OrdnerAAA".
Übergibt man den Pfad (l.t. Definition oben) dann ist das Ergebnis "".

[DeddyH]

Statt zu referieren könnte man es auch einfach formulieren:

Delphi-Quellcode:

ExtractFileName(ExcludeTrailingPathDelimiter(<Pfad oder Verzeichnis>))

Ggf. noch die Dateiattribute ermitteln, dann weiß man, ob es ein Verzeichnis oder eine Datei ist.
:mrgreen:

[Helmi]

Zitat:

Zitat von DeddyH (Beitrag 1198944)

Statt zu referieren könnte man es auch einfach formulieren:

Delphi-Quellcode:

ExtractFileName(ExcludeTrailingPathDelimiter(<Pfad oder Verzeichnis>))

So hab ich es schlussendlich auch gemacht - das reicht mir, denn ich bekomme einen Dateinamen übergeben inkl. Pfadangabe und sortiere zuvor schon den Pfad daraus raus (ExtractFilePath). Aus dem nun erhaltenen Pfad (richtig so?) will ich nun das letzte Verzeichnis (richtig so?) ermitteln.

[terence14]

Ich löse solche Probleme immer, indem ich

1) den String prüfe, ob er auf ein "\" endet,
nachdem ich mit s:=Trim(s) alle Leerzeichen am
Ende entfernt habe.

2) ist das der Fall, hänge einen "." an,
wenn nicht hänge ein "\." an
und schau mit DirectoryExist(s) nach,
ob der Pfad existiert.

3) Wenn ja, dann ist das letzte im String ein
Verzeichnisname, ansonsten ein Dateiname :)

4) Mit ExtractFileName(s) wird übrigens immer der
letzte Stringabschnitt nach einem "\" zurückgegeben.

MfG,
terence