copiar un directorio en otro

[petete2008]

Hola :
Supongamos que tengo un directorio origen llamado c:\carpeta (dentro de prueba hay un subdirectorio llamado T1).
Quiero copiar el contenido de c:\carpeta (incluido ficheros y subdirectorios) a la carpeta destino c:\pp (la carpeta pp esta creada previamente manualmente).

El problema que tengo es que con el código siguiente me crea dentro de la carpeta pp otro directorio llamado carpeta y no es lo que deseo. Quiero también que se sobreescriba si algún fichero o carpeta existe dentro del directorio destino sin preguntar.

// RenameOnCollision : Boolean; //Renames if directory exists
// NoConfirmation : Boolean; //Responds "Yes to All" to any dialogs
// Silent : Boolean; //No progress dialog  is shown
// ShowProgress : Boolean; //displays progress dialog but no file names
// FromDir : String; //From directory, source
// ToDir : String // To directory, source
Function copyDir(RenameOnCollision:Boolean; NoConfirmation:Boolean; Silent:Boolean; ShowProgress:Boolean; FromDir:String; ToDir:String):Boolean;
var
  SHFileOpStruct : TSHFileOpStruct;
  FromBuf, ToBuf: Array [0..255] of Char;
begin
  Try
    Fillchar(SHFileOpStruct, Sizeof(SHFileOpStruct), 0 );
    FillChar(FromBuf, Sizeof(FromBuf), 0 );
    FillChar(ToBuf, Sizeof(ToBuf), 0 );
    StrPCopy(FromBuf, FromDir);
    StrPCopy(ToBuf, ToDir);
    With SHFileOpStruct Do
    Begin
      Wnd := 0;
      wFunc := FO_COPY;
      pFrom := @FromBuf;
      pTo := @ToBuf;
      fFlags := FOF_ALLOWUNDO;
      If RenameOnCollision Then fFlags := fFlags or
        FOF_RENAMEONCOLLISION;
      If NoConfirmation Then fFlags := fFlags or
        FOF_NOCONFIRMATION;
      If Silent Then fFlags := fFlags or
        FOF_SILENT;
      If ShowProgress Then fFlags := fFlags or
        FOF_SIMPLEPROGRESS;
    End;
  Result := (SHFileOperation(SHFileOpStruct) = 0); // it goes wrong here
  Except
    Result := False;
  End;
end;//copyDir

 copyDir( false, true, false, false, PChar('c:\prueba'), Pchar('c:\pp');

Alguien tiene idea que puede estar pasando?
gracias de antemano!!

[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;