Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Trucos (https://www.clubdelphi.com/foros/forumdisplay.php?f=52)
-   -   Creando múltiples copias de respaldo de un archivo (https://www.clubdelphi.com/foros/showthread.php?t=80879)

rretamar 17-07-2008 13:09:40

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;


ingabraham 05-01-2009 19:46:56

felicitaciones, estas son las mentes que ay q exaltar, q buena idea, felicidades compañero programador.!

ingabraham 13-04-2011 01:40:04

como haria en red, por q nose que divisores debe tener cuando es en red, con la ip


La franja horaria es GMT +2. Ahora son las 19:04:18.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi