Создать каталог

ОГЛАВЛЕНИЕ    HOME  MAIL

uses FileCtrl;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if DirectoryExists(Edit1.Text) then begin
    ShowMessage('Directory ' + Edit1.Text + ' exists');
    Exit;
  end;
  ForceDirectories(Edit1.Text);
end;