Ordner automatisch erstellen?

[Marco Haffner]

Wäre da nicht folgendes kürzer?

Delphi-Quellcode:

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

[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

[Marco Haffner]

Zitat von 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!)
...
...
Persönlich schreibe ich bei sowas übrigen immer so:
const verzeichnis = 'C:\irgendwas\ass\fjk\';

Stimmt, Delphi überprüft es ja selbst... wenn man halt nicht am eigenen Rechner sitzt.
Ja im Eifer des Gefechts kann man auch mal etwas übersehen.
Besonders wenn man klau... ähh, kopiert.
Ich bevorzuge es auch Ordner oder Dateinamen nur einmal anzugeben, aber wie schon gesagt...

[Stephan]

Hi,

thx, hat wunderbar funktioniert!

viele Grüße

Stephan