copiar un directorio en otro

[ecfisa]

Hola petete2008.

Probá de este modo:

Código Delphi [-]
uses ShellApi;

function CopyDir(const Source, Target: string): Boolean;
var
  SHFileOpStruct: TSHFileOpStruct;
begin
  ZeroMemory(@SHFileOpStruct, SizeOf(SHFileOpStruct));
  with SHFileOpStruct do
  begin
    wFunc  := FO_COPY;
    fFlags := FOF_FILESONLY;
    pFrom  := PChar(Source + #0);
    pTo    := PChar(Target)
  end;
  Result := (0 = ShFileOperation(SHFileOpStruct));
end;

Llamada de ejemplo:

Código Delphi [-]
  if copyDir('c:\prueba', 'c:\pp') then
    // copia exitosa
  else
    // error

Saludos.