Ordner automatisch erstellen?

[Brüggendiek]

Hallo!

Noch kürzer ist:

Delphi-Quellcode:

procedure TForm1.ButtonClick(Sender: TObject);
begin
  ForceDirectories('C:\irgendwas\ass\fjk\');
  Memo1.Lines.SaveToFile('C:\irgendwas\ass\fjk\' + 'Dateinamen.txt');
end;

(den '\' zwischen Verzeichnis und Dateimanen nicht vergessen, gelle!)

ForceDirectories legt die angegebenen Dirs an, wenn es nötig ist. Existiert schon alles, ist es nicht nötig und es geschieht nichts!

Persönlich schreibe ich bei sowas übrigen immer so:

Delphi-Quellcode:

const verzeichnis = 'C:\irgendwas\ass\fjk\';

procedure TForm1.ButtonClick(Sender: TObject);

begin
  ForceDirectories(verzeichnis);
  Memo1.Lines.SaveToFile(verzeichnis + 'Dateinamen.txt');
end;

Vorteile:
1. Sicherheit vor Tippfehlern
2. Bei Änderungen des Verzeichnisses nur 1 Änderung für alle Stellen, wo das benutzt wird.

Gruß

Dietmar Brüggendiek