como faço p copiar arquivos

Delphi

13/10/2003

como faço p copiar arquivos de uma pasta para outra podendo especificar augums para nao serem copiados como *.exe etc


Flaviocont

Flaviocont

Curtidas 0

Respostas

Beppe

Beppe

13/10/2003

A função CopyFile copia, e RenameFile renomeia.

Ataliba


GOSTEI 0
Rodrigo_rcp

Rodrigo_rcp

13/10/2003

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;



GOSTEI 0
POSTAR