Создать каталог
Для создания каталога удобно использовать функцию FORCEDirectories.Она создает путь, переданный ей в качестве параметра. ForceDirectories создает все существующие каталоги, указанные в пути. procedure TForm1.Button1Click(Sender: TObject);begin
if DirectoryExists(Edit1.Text) then begin
ShowMessage('Directory ' + Edit1.Text + ' exists');
Exit;
end;
ForceDirectories(Edit1.Text);
end;
