Как переносить файлы в Delphi

[SeЯgey]

необходимо переносить файлы в из одной папки в другую
причем вторую папку создаем, если её нет!
имена файлов разные!

[N!ckeL]

код:
createdir(<имя директории>);
copyfile(<имя файла>,<имя директории\имя файла>,true);
copyfile - функция 1 параметр это путь к файлу, 2 параметр это путь
куда его скопировать, 3 параметр если такой файл существует заменить (true)

[Stilet]

SHFileOperation тебе в помошь.

[Dux]

{ В Uses необходимо указать модуль ShellAPI }


procedure CopyFiles(const FromFolder: string; const ToFolder: string);
var
Fo: TSHFileOpStruct;
buffer: array[0..4096] of char;
p: pchar;
begin
FillChar(Buffer, sizeof(Buffer), #0);
p := @buffer;
StrECopy(p, PChar(FromFolder)); //директория, которую мы хотим скопировать
FillChar(Fo, sizeof(Fo), #0);
Fo.Wnd := Application.Handle;
Fo.wFunc := FO_COPY;
Fo.pFrom := @Buffer;
Fo.pTo := PChar(ToFolder); //куда будет скопирована директория
Fo.fFlags := 0;
if ((SHFileOperation(Fo) <> 0) or (Fo.fAnyOperationsAborted <> false)) then
ShowMessage('File copy process cancelled')
end;

procedure TForm1.CopyButtonClick(Sender: TObject);
begin
CopyFiles('c:\Test','d:\Test');
Showmessage('Copying Complete');
end;