[[rretamar]]

El siguiente código permite realizar un respaldo (copia) de un archivo manteniendo varias copias rotativas, con las extensiones .1 .2 .3 etc. etc. Es muy útil para mantener varias "generaciones" de un mismo archivo, que se irán "actualizando" en forma rotativa. Se utilizan las funciones de copia contenidas en la unidad RxFileUtil de las conocidísimas biblotecas libres RxTools 2.75 .

Por ejemplo:
Respaldo_Archivo('C:\TABLAS\CLIENTES.DAT', 'D:\COPIAS',4);

Esto creará en el trayecto una copia "rotativa" con cuatro "instancias". Cada vez que se lo ejecute, la copia llamada CLIENTES.DAT.1 será la reciente, y las anteriores serán respectivamente CLIENTES.DAT.2 ,CLIENTES.DAT.3 ,CLIENTES.DAT.4 .Nótese que CLIENTES.DAT.4 es la instancia más antigua y la siguiente vez será sobreescrita por CLIENTES.DAT.3 .Para acelerar el proceso, se usa la función FILEMOVE .

//
// Respaldar un archivo en múltiples instancias, usando un trayecto destino
//
Procedure Respaldo_Archivo(Archivo, Trayecto_Destino: String; Instancias: Byte);
Var
  Origen, Destino, Nombre_Destino : String;
  Contador: Byte;
Begin
  // Si la instancia inicial no se encuentra, abortar
  if Not FileExists(Archivo) Then Exit;
  // Si el directorio destino no existe, intentar crearlo. Si no se puede crear, abortar
  If Not DirectoryExists(Trayecto_Destino) then
    if Not CreateDir(Trayecto_Destino) then Exit;
  // Normalizar trayecto
  Trayecto_DEstino := IncludeTrailingBackslash( Trayecto_Destino);
  // Actualizar las n instancias a través de la función movefile
  Nombre_Destino := Trayecto_Destino + ExtractFileName( Archivo ) + '.';
  For Contador := Instancias Downto 2 Do
    Begin
      Origen  := Nombre_Destino + IntToStr( Contador - 1 );  // Mover desde .n - 1
      Destino := Nombre_Destino + IntToStr( Contador );      // hacia .n
      if FileExists(Origen) And DirectoryExists(Trayecto_Destino) then
        MoveFile(Origen, Destino);
    End;
  // Respaldar la instancia original
  if FileExists(Archivo) And DirectoryExists(Trayecto_Destino) then
    CopyFile(Archivo, Nombre_Destino + '1', Nil);
End;