Kako da kopiram fajlove?

Treba mi kod koji će kopirati sve fajlove i iz poddirektorijuma, u poddirektorijume.

Nadam se da ti ovo moze pomoci.

uses
ShellApi;


function CopiaTodo(Origen,Destino : String) :
LongInt;
var
F : TShFileOpStruct;
sOrigen, sDestino : String;
begin
Result := 0;
sOrigen := Origen + #0;
sDestino := Destino + #0;

with F do
begin
Wnd := Application.Handle;
wFunc := FO_COPY;
pFrom := @sOrigen[1];
pTo := @sDestino[1];
fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION
end;

Result := ShFileOperation(F);
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
CopiaTodo('C:\Folder\New Folder\*.*','c:\CopyFolder\New Folder2\');
end;