Ordner inkl. Unterordner erstellen

[Helmi]

Hallo,

ich vermute es ist eine ganz banale Frage, aber ich komm nicht drauf:

Wie kann ich einen Ordner inkl. aller Unterordner erstellen?

Folgendes Beispiel funktioniert nicht:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  S: String;

begin
  S := 'D:\testtest\NC-Programme\wks.dir\lader\was';

  If not CreateDir(S) then
    ShowMessage('geht nicht');
end;

Folgendes geht:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  S: String;

begin
  S := 'D:\testtest';

  If CreateDir(S) then
    begin
      S := S + '\NC-Programme';

      If CreateDir(S) then
        begin
          S := S + '\wks.dir';

          If CreateDir(S) then
            begin
              S := S + '\lader';

              If CreateDir(S) then
                begin
                  S := S + '\was';
                end;
            end;
        end;
    end;
end;

Gibt es einen anderen Befehl ausser "CreateDir" um Ordner zu erzeugen oder muss ich meinen Pfad auseinander pflücken und in einer Schleife immer den nächsten Ordner erzeugen?