Copiar Arquivos?

Question

Caros amigos ...Estou com uma pequena d�vida, como fa�o para copiar todos os arquivos de um diret�rio e jogar em outro diretorio?desde j� obg pela aten��o de todos aki no forum....

Sabado · Answer

procedure TForm1.Button2Click(Sender: TObject);
var
SR: TSearchRec;
I: integer;
Origem, Destino: string;
begin
I := FindFirst(�c:\Origem\*.*�, faAnyFile, SR);
while I = 0 do begin
if (SR.Attr and faDirectory) <> faDirectory then begin
Origem := �c:\Origem\� + SR.Name;
Destino := �c:\Destino\� + SR.Name;
if not CopyFile(PChar(Origem), PChar(Destino), true) then
ShowMessage(�Erro ao copiar � + Origem + � para � + Destino);
end;
I := FindNext(SR);
end;
end;

F�rum Copiar Arquivos? #301285