Übergeordneter Ordner als String

Übergeordneter Ordner als String

Gerade kurz mit Delphi5 für meine tiefen Unterordner zusammengebastelt (von hinten durch die Brust ins Auge):

markieren

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

Übergeordneter Ordner als String

Übergeordneter Ordner als String

Forumregeln