Como copiar todo el contenido de un directorio?

[JuanErasmo]

Buenas tardes amigos.
Necesito cortar el contenido de un directorio ( que incluye subdirectorios )
y ponerlo en una nueva ubicación.
Adicionalmente renombrar la carpeta.
Como puedo hacerlo con Builder?
Gracisa por su respuesta.

[dec]

Hola,

Ignoro cuánto te costaría traducir el siguiente código Delphi a C++ Builder, pero, tal vez pueda servirte para empezar:

Código Delphi [-]
uses
  Windows, ShlObj, ShellApi;

function MoverCarpeta(const carpetaOrigen,
  carpetaDestion: string) : boolean;
var
  FileOp: TSHFileOpStruct;
begin
  FillChar(FileOp, SizeOf(FileOp), #0);
  with FileOp do
  begin
    wFunc := FO_MOVE;
    Wnd := GetDesktopWindow;
    pTo := PChar(carpetaOrigen);
    pFrom := PChar(carpetaDestion+#0#0);
    fFlags := FOF_NOCONFIRMATION or
      FOF_SILENT or FOF_ALLOWUNDO;
  end;
  Result := (ShFileOperation(FileOp) = 0);
end;

[JuanErasmo]

Gracias dec, lo intentare...
Sabes como renombrar las nuevas carpetas?
Necesito cambiarle el nombre a la nueva carpeta....
Gracias

[dec]

Hola,

Necesito cambiarle el nombre a la nueva carpeta....

Si no recuerdo mal en la unidad "SysUtils" hay alguna función "RenameFolder" o "RemaneDirectory"... echa un vistazo a ver, ahora mismo no podría confirmártelo.

[JuanErasmo]

Buenas tardes.
Alguien sabe cual es el equivalente de # de Delphi en Builder?
ah y de la @ tambien....
Lo que pasa es que el codigo anterior lo trae y no he podido encontrar el equivalente.....
Gracias.

[JuanErasmo]

No se puede copiar "directorio" la carpeta de destino es la misma que la carpeta de origen .
Me esta sacnado ese error pero no son iguales....
lo estoy haciendo asi:

 
 SHFILEOPSTRUCTA *F = new SHFILEOPSTRUCTA;
 String sOrigen, sDestino; // : String;
   AnsiString Origen,Destino;
   Origen="c:\\o\\a\\*.*";
   Destino= "c:\\medicalimage\\dinamica\\imagenes" ;
   int Result;
 Result = 0;
  // sOrigen = Origen + #0;
  // sDestino = Destino + #0;
 // with F do
 // begin
        F->hwnd   = Application->Handle;
        F->wFunc = FO_COPY;
  // F.pFrom = sOrigen[1];
  // F.pTo   = sDestino[1];
        F->pFrom =  PChar("c:\\o\\a\\*.*");
        F->pTo   =   PChar("c:\\dinamica\\imagenes") ;
       F->fFlags = FOF_ALLOWUNDO | FOF_NOCONFIRMATION ;
  // end;
       SHFileOperationA(F);