procedure TForm1.Button1Click(sender : TObject);
begin
MoveFileEx('c:\MonRepertoire\','a:\MonRepertoire',MoveFile_Copy_Allowed);
end;