скопировать все содержимое папки в другую

[DannyKing]

на форме 2 поля edit и кнопка.
в поля надо записать пути к папкам, после нажатия на кнопку все содержимое из одной папки копируется в другую.
как это сделать????
помогите плз!!!

[uberchel]

держи исходник+ exe

[DannyKing]

пасибо огромное...
а если тоже самое только из нескольких папок в одну... программа сильно измениться?

[uberchel]

Нет не сильно, если конечно не делать всяких наворотов !

[DannyKing]

можешь переделать, плз.

[Serge_Bliznykov]

DannyKing, а почему сам не переделаешь?
Там всё достаточно просто: накидай сколько надо edit'ов, а код копирования вынеси в отдельную процедуру (типа такой):

procedure TForm1.CopyOne(const sDirIn : string; const sDirOut : string);
var OpStruc: TSHFileOpStruct;
  frombuf, tobuf: array[0..128] of Char;
begin FillChar(frombuf, Sizeof(frombuf), 0);
  FillChar(tobuf, Sizeof(tobuf), 0);
  StrPCopy(frombuf, sDirIn + '*.*'); // от куда
  StrPCopy(tobuf, sDirOut); // куда
  with OpStruc do begin Wnd := Handle; wFunc := FO_COPY;
    pFrom := @frombuf; pTo := @tobuf;
    fFlags := FOF_NOCONFIRMATION or FOF_RENAMEONCOLLISION;
    fAnyOperationsAborted := False; hNameMappings := nil;
    lpszProgressTitle := nil; end; ShFileOperation(OpStruc);
end;

а потом на Button1Click:

CopyOne(EditIn1.Text, Edit2.Text);
CopyOne(EditIn2.Text, Edit2.Text);
CopyOne(EditIn3.Text, Edit2.Text);
...

[DannyKing]

пасибо!!!! примного благодарен!!!!!