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.

[petete2008]

Gracias, al final lo solucione de esta forma

Procedure Copy1Dir(fromDir, toDir : String);
var
fileOp: TShFileOpStruct;
begin
FillChar(fileOp, Sizeof(TShFileOpStruct), 0);
fromDir := fromDir + '\*.*'#0;
toDir := toDir + #0;
with fileOp do begin
  wnd := Application.Handle;
  wfunc := FO_COPY;
  pFrom := PChar(fromDir);
  pTo := PChar(toDir);
  fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION;
  fAnyOperationsAborted := false;
  hNameMappings := nil;
  lpszProgressTitle := nil;
end;
SHFileOperation(fileOp);
end;