I/O Error 183

[Daniel B]

Hallo Pilrich,

probier das mal aus:

Code:

uses Dialogs;

Code:

begin
  {$I-}
  { Get directory name from TEdit control }
  MkDir(Edit1.Text);
  if IOResult <> 0 then
    MessageDlg('Cannot create directory', mtWarning, [mbOk], 0)
  else
    MessageDlg('New directory created', mtInformation, [mbOk], 0);
end;

Grüsse, Daniel