Fórum Estou desesperado... #155278

Cara vc já perguntou isso e já te passaram um dos jeitos de fazer agora é implementar no seu sistema!!!!

Dica retirada do DTDelphi:

Para efetuar a cópia:

procedure TFormCopia.BitBtn1Click(Sender: TObject);
var
I: Integer;
begin
Database1.Connected:=True; // Database para controle
Table2.DatabaseName:=DirectoryListBox1.Directory; // Seleciona local de destino da cópia
with Session1 do
begin
Active:=True;
GetTableNames(´AliasName´,´*.*´,True,True,Memo1.Lines); // Retorna o nome das tabelas
end;
for I:= 0 to Memo1.Lines.Count - 1 do
begin
Table1.TableName:=Memo1.Lines[I]; // Tabela origem
Table2.TableName:=Memo1.Lines[I]; // Tabela destino
BatchMove1.Execute;
end;
end;
Para efetuar a restauração:

procedure TFormRestaura.BitBtn1Click(Sender: TObject);
var
I: Integer;
begin
Database1.Connected:=True;
Table2.DatabaseName:=DirectoryListBox1.Directory; // Origem da restauração
with Session1 do
begin
Active:=True;
GetTableNames(Table2.DatabaseName,´*.*´,True,True,Memo1.Lines); // Retorna nomes das tabelas
end;
for I:= 0 to Memo1.Lines.Count - 1 do
begin
Table1.TableName:=Memo1.Lines[I]; // Tabela origem

Table2.TableName:=Memo1.Lines[I]; // Tabela destino BatchMove1.Execute;
end;
end;

Após restaurar por este método, você deve recriar os índices.

Eu acho que voce quer isto:

use a fiunção CopyFile(Pchar(arquivo),Pchar(novoarquivo),false);
onde arquivo é path completo do arquivo (´c:\meudoc\meuarqu.db´).

Não esqueça de copiar todos os outros arquivos acessórios, que tem o mesmo nome do arquivo ´db´ mas outras extensões, tal como ´FAM´, ´MB´, ´TV´,´PX´, ´xg0´, ´yg0´, ´xg1´, ´yg1´, dependendo dos indexes que voce tem.

Eu faço uma linha para cada um. Não se preocupe com aliases, ou com do BDE, esta copia é feita diretamente com o Windows. Para recuperar é só recopiar os arquivos em cima dos originais.

Espero tem ajudado.

Marconi