Ordner automatisch erstellen?

[City Light]

Delphi-Quellcode:

Zu diesem Beispiel gehören eine Beschriftung (Label) und eine Schaltfläche. Nach einem Klick auf die Schaltfläche werden ausgehend vom aktuellen Pfad alle Verzeichnisse angelegt, die noch nicht existieren. Die Ergebnisse werden im Beschriftungstext ausgegeben.

procedure TForm1.Button1Click(Sender: TObject);

var
  Dir: string;
begin

  Dir := 'C:\APPS\SALES\LOCAL';

  if ForceDirectories(Dir) then
    Label1.Caption := Dir + ' wurde erstellt.'

end;