Buscar por:

Fazer Cópia de Pastas (Backup) - Renomeando-a em Caso de Colisão

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