Si Disculpar.... de nuevo.
Necesitaria algo muy sencillo como por ejemplo esto que pusiste pero que funcione en free pascal (terminal)
Código Delphi
[-]begin
if not MoveDir('C:\Folder_A', 'C:\Folder_B\SubFolder_B\Folder_A') then
ShowMessage('Error moviendo directorio');
end;
La finalidad es recoger varios directorios y unirlos en una sola carpeta.
Bueno gracias de antemano