Übergeordneter Ordner als String
Gerade kurz mit Delphi5 für meine tiefen Unterordner zusammengebastelt (von hinten durch die Brust ins Auge):
Delphi-Quellcode:
function OneFolderUp(FolderName: string): string;
var s: string;
begin
s := FolderName;
s := copy(s, 0, length(s) - 1);
s := s + '$$$.tmp';
s := ExtractFilePath(s);
//MessageBox(0, PChar(s), 'OneFolderUp', mb_Ok or mb_DefButton1);
Result := s;
end;
Der (von mir) an die Funktion übergebene FolderName endet immer mit einem Backslash.
Ob es den übergeordneten Ordner überhaupt gibt, wird offensichtlich *nicht* überprüft.
HTH