letzten Ordner eines Pfades 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