Einzelnen Beitrag anzeigen

MrMyagi

Registriert seit: 2. Mai 2007
203 Beiträge
 
Delphi 7 Personal
 
#1

MkDir Problem (für Euch sicher ne Leichtigkeit)

  Alt 29. Dez 2007, 19:58
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;
  Mit Zitat antworten Zitat