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

23/05/2003

1

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 (sistema critico). Quero criar um programa que fique residente na memória, e em intervalos, verifique se algum arquivo foi alterado; caso seja, o programa copia ele para uma outra pasta...

Alguem se habilita a me ajudar?

Obrigado


Responder

Posts

23/05/2003

Okama

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;



Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira