¿Mejor manera de mover un directorio con ficheros de un sitio a otro?

[ecfisa]

Hola.

¿ Algo así ?

Código Delphi [-]
// Cabecera (opcional)
program Project1;

// inclusión de unidades a usar
uses Windows, ShellApi;

// declaración de funciones/procedimientos
function MoveDir(const fromDir, toDir: string): Boolean;
var
  fos: TSHFileOpStruct;
begin
  ZeroMemory(@fos, SizeOf(fos));
  fos.wFunc  := FO_MOVE;
  fos.fFlags := FOF_NOCONFIRMMKDIR + FOF_RENAMEONCOLLISION;
  fos.pFrom  := PChar(fromDir + #0);
  fos.pTo    := PChar(toDir);
  Result     := ShFileOperation(fos) = 0;
end;

// cuerpo principal del programa
begin
  ...
  if not MoveDir('C:\Folder_A', 'C:\Folder_B\SubFolder_B\Folder_A') then
    Writeln('Error moviendo directorio');
  ...
end.

Saludos