Tworzy folder pod wskazanym adresem!

procedure TForm1.Button1Click(Sender: TObject);

begin

MkDir ('c:\moje dokumenty\pusty');

end;

Kasuje ten folder......

procedure TForm1.Button3Click(Sender: TObject);

begin

RmDir ('c:\moje dokumenty\pusty');

end;

inna:

Use CreateDirectory and RemoveDirectory for this.

var

St1: array[0..MAX_PATH-1] of Char;

...

procedure TForm1.Button1Click(Sender: TObject);

begin

St1:='c:\temp';

CreateDirectory(St1, nil);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

St1:='c:\temp';

RemoveDirectory(St1);

end;