darcan01

abetop respondió: procedure TForm1.Button1Click(Sender: TObject); begin WinExec('xcopy c:\users c:\users2 /s',sw_ShowNormal); end; Yo he probado con este ejemplo y funciona correctamente, debe existir la carpeta destino y estar vacía sino pregunta antes de reemplazar.