Buscar por:

Copiando arquivos de diretório para diretório

Código

Procedure CopyDir(const cFrom, cTo : string); 

var 

OpStruc : TSHFileOpStruct; 

frombuf, tobuf : array[0..128] of Char; 

begin 

FillChar(frombuf, Sizeof(frombuf), 0); 

FillChar(tobuf, Sizeof(tobuf), 0); 

StrPCopy(frombuf, cFrom); 

StrPCopy(tobuf, cTo); 

with OpStruc do 

begin 

Wnd := Application.Handle; 

wFunc := FO_COPY; 

pFrom := @frombuf; 

pTo := @tobuf; 

fFlags := FOF_NOCONFIRMATION or FOF_RENAMEONCOLLISION; 

fAnyOperationsAborted := False; 

hNameMappings := nil; 

lpszProgressTitle := nil; 

end; // with 

ShFileOperation(OpStruc); 

end; // CopyDir