Fórum Backup do banco de dados automático #196566

Poder vc pode... o programa é seu.. hehehhe!!! :lol:

Mas o que tem a ver o FileNameEdit e o DirectoryEdit com isso?

O máximo que estes componentes vão fazer pra vc é indicar um caminho e/ou pasta onde vc vai fazer o backup. Seria legal ter isso numa janela de configuração de backup.

Agora se vc está perguntando o jeito que vai fazer o backup de seus dados já é outra coisa completamente diferente... :wink:

[]´s

Meu amigo eu uso esta rotina para efetuar Backup automaticamente
ve se te ajuda !!

procedure TForm1.CriaDiretorio ;
var
Dir: string;
begin
Dir := VarPathBackup;
if not DirectoryExists(Dir) then
ForceDirectories(Dir);
end;


Var
Dir : String ;
SR: TSearchRec;
I: integer;
Origem, Destino: string;
begin
if VarBackup =´True´ Then
begin
Try
Dir:=VarPathBackup ;
if not DirectoryExists(Dir) then
CriaDiretorio ;
I := FindFirst(´C:\Estoque\*.Gdb´, faAnyFile, SR);
while I = 0 do
begin
Application.ProcessMessages ;
if (SR.Attr and faDirectory) <> faDirectory then
begin
Origem := ´C:\Estoque\´ + SR.Name;
Destino := VarPathBackup + SR.Name;
if not CopyFile(PChar(Origem), PChar(Destino), False) then
ShowMessage(´Erro ao copiar ´ + Origem + ´ para ´ + Destino);
end;
I := FindNext(SR);
end;
Except
on E: Exception do
begin
MensagemTela( ´ERRO Ao Tentar Realizar Backup Automático !.´, E.Message,
´Suporte: (0xx12)-31435707´+chr(13)+´ ou´+Chr(13)+
´ (0xx12)91559102´, 0 ) ;
Timer1.Enabled :=False ;
end;
end;
end;
end;