Urgente: Preciso de uma funcao para backup automatico!!!

Question

Eu gostaria de saber como criar uma funcao que verifique, automaticamente, se arquivos .dbf foram alterados, e quando forem, sejam copiados.Exemplificando: tenho um sistema que roda arquivos .dbf (sis...

Okama · Answer

Fa�a um aplicativo que acione uma rotina em intervalos definos por um Timer.

Crie uma pequena base ou arquivo txt para armazenar o nome do DBF e data da �ltima altera��o.

Crie uma rotina quevefirique todos os arquivos dbf e compare as datas, se houve altera��o copie os arquivos e grave a nova data.

use FileAGE para testar a data do DBF

procedure TForm1.Button1Click(Sender: TObject);
Var data: TDateTime;
begin
Data := FileDateToDateTime(FileAge(�c:\base.dbf�) );
Showmessage( FormatDateTime(�dd/mm/yyyy hh:nn:ss�, data) );
end;