Foros Club Delphi - Creando múltiples copias de respaldo de un archivo

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 .

Código:

//

// 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;