Backup/Restaurar

[sizne]

Hola!

Podrían ayudarme en:

Estoy realizando un programa (Delphi con Base de Datos SQL Server 2000). Pues debo realizar al hace un click en un boton, me permita sacar el Backup a una unidad/dirección del Disco Duro que yo elija.

De la misma manera poder restaurarla cuando sea preciso.

Similar a la que se puede sacar el Backup y Restaurar el Sistema Operativo: Copia de seguridad y Restaurar Sistema.

La verdad no sé hacerla

Por favor...

Gracias

[ecfisa]

Hola sisne el tema de los resguardos no es sencillo para exponerlo en pocas líneas. Hay muchas cosas que tomar en cuenta como el espacio disponible, manejo de errores físicos que pudieran presentarse, compresión de datos, resguardo incremental, etc, etc...

Pero te hago un simple código de copia de archivos desde Delphi, como para que empieces a trabajar sobre él:

procedure TForm1.Button1Click(Sender: TObject);
const
  Ori = 'C:\CarpetaOrigen\';
  Des = 'C:\CarpetaDestino\'; // Des, puede reemplazarse por Edit1.Text x ej. 
var
  sr: TSearchRec;
begin
  CreateDir(Des);
  if FindFirst(ORI+'*.*',faAnyFile, sr)= 0 then
  begin
   repeat
     CopyFile(PAnsiChar(Ori+sr.Name),PAnsiChar(Des+sr.Name),false);
   until FindNext(sr) <> 0;
  end;
  FindClose(sr);
end;

Saludos.