Создание удаление каталогов, копирование файлов.

[Alar]

Ответил на вопрос в C++ . Переместил сюда

begin
  // Создание нового каталога в текущей директории
  if CreateDir('TestDir')
  then ShowMessage('Новый каталог создан')
  else ShowMessage('Создание нового каталога прошло неудачно и вызвало ошибку : '+
                   IntToStr(GetLastError));
end;

http://delphibasics.ru/CreateDir.php

// Удаление каталога
  if RemoveDir('TestDir')
  then ShowMessage('TestDir удален')
  else ShowMessage('TestDir не удален, произошла ошибка : '+
                   IntToStr(GetLastError));
  end;

http://delphibasics.ru/RemoveDir.php

procedure TForm1.Button1Click(Sender: TObject);
begin
// Копирование файла в delphi
CopyFile(’Откуда\Имя файла’,'Куда\Новое имя файла’,true)
// если файл с таким же именем уже есть то true - если заменять или false если оставить прошлую копию файла
end;

http://pblog.ru/?p=14

[JTG]

И я тож поумничаю

//Создать папку с вложенными подпапками
if ForceDirectories('C:\folder1\folder2\folder3')
  then ShowMessage('Нормально')
  else ShowMessage('Не нормально, ошибка' + IntToStr(GetLastError));