Fórum como faço p copiar arquivos #188449

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;