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;