MkDir Problem (für Euch sicher ne Leichtigkeit)

[MrMyagi]

Moin allerseits,
und zwar möche ich meinen Programm einen Ordner erstellen lassen
mit der Funktion MkDir und es soll eine Nachricht kommen,
wenn der Ordner erfolgreich erstellt worden ist und eine, wenn es einen Fehler gab
(Bsp. Datei ist schon vorhanden). Jedoch anstatt eine eigene Fehlermeldung auszuspucken,
wenn der Ordner schon vorhanden ist, wird die gleiche Fehlermeldung wie sonst auch
ausgegeben?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
try
MkDir('D:\hallole\');
label1.Caption := 'Ordner wurde erfolgreich erstellt!';
except
label1.Caption := 'Fehler beim Erstellen des Ordners!';
end;
end;

[DeddyH]

Frag doch vorher und nachher mit DirectoryExists ab, ob der Ordner vorhanden ist.

[Die Muhkuh]

Wenn Du mehrere Ordner auf einmal stellen willst, bietet sich ForceDirectories an ;)

[DeddyH]

Ist aber auch nur eine Prozedur, also auch hier nachfragen ;)

[MrMyagi]

Joa da haste recht, dass könnte ich theoretisch auch tun jedoch frage ich mich,
warum das Programm bei dem Fehler nich auf except umspringt,
sondern einen bzw den Fehler ausgibt???

mfg, Nico

[Die Muhkuh]

Ich sagte auch nie, dass er nicht mehr nachfragen müsse ;)

[DeddyH]

Du kommst vom Thema ab. :mrgreen:

[MrMyagi]

Kann man nun irgendwie meinen Quelltext umbauen, so dass
er bei einer Fehlermeldung auf except umspringt? :roll:

[DeddyH]

Delphi-Quellcode:

try
  MkDir('D:\hallole\');
  if not DirectoryExists('D:\hallole') then
    raise Exception.Create('Ordner konnte nicht erstellt werden.');

Versuch mal.

[Helmi]

Hallo,

machs halt mit CreateDir

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  If CreateDir('D:\hallole\') then
    Label1.Caption := 'Ordner wurde erfolgreich erstellt!'
  else
    Label1.Caption := 'Fehler beim Erstellen des Ordners!';
end;