BacKup

oi, bom dia.
bem quando eu quero fazer um backup, eu utilizo a seguinte rotina: ponha no click de um botao:
copyfile(´origem´,´destino´, true);

funciona assim: voce tem um arquivo joao.txt em c:\joao.txt certo?
e voce quer mandar para a: certo? mas voce tem que por o nome do arquivo no destino tambem, entao, se quiser fazer isso a rotina ficaria assim:
copyfile(´c:\joao.txt´, ´a:\joao.txt´, true);
detalhe: se voce deixar como true, o programa pode copiar por cima de um arquivo de mesmo nome, porem, se voce por false, se tiver um arquivo com o mesmo nome ele nao copia, certo?
obs: a origem e o destino sao sempre entre aspas ok!?!

é isso, espero ter ajudado....
qualquer coisa mande um e-mail para davicdc@yahoo.com.br

Oi, espero que te ajude essa rotina de backup, qualquer coisa me manda um E-Mail (farial02@terra.com.br)

var Dados: TshFileOpstruct; // variável de estrutura na Uses adicionar SHELLAPI
begin
if (cb.Text=´´) or (cb.Text<>´BACKUP´) and (cb.Text<>´RESTAURAR BACKUP´) then
begin
MessageDlg(´Caracter inválido, selecione uma das opções fornecidas´,mtError,[MBOk],0);
cb.Text:=´BACKUP´;
BitBtn1.Caption:=´BACKUP´;
abort;
end;

if cb.text = ´BACKUP´ then
begin
FillChar(Dados,sizeof(Dados),0); // limpa e abilita a variável Dados
with Dados do // inicia o procedimento de cópia
begin
WFunc := fo_copy; // define o tipo de função a ser executada, neste caso uma cópia
PFrom := Pchar(´c:\Arquivos de programas\Cadastro\Cadastro\Cadastro.db´); // define o local de origem e o que deve ser copiado
PTo := Pchar(´A:\´); //define o local de destino, caso seja uma pasta e a mesma não exista, a própria função a cria
FflaGs := foF_Allowundo; // confirma o procedimento
end;
shFileoperation(Dados); //finaliza o procedimento
end;

if cb.text = ´RESTAURAR BACKUP´ then
begin
BitBtn1.Caption:=´RESTAURAR BACKUP´;
FillChar(Dados,sizeof(Dados),0); // limpa e abilita a variável Dados
with Dados do // inicia o procedimento de cópia
begin
WFunc := fo_copy; //define o tipo de função a ser executada, neste caso uma cópia
PFrom := Pchar(´A:\*.*´); //define o local de origem e o que deve ser copiado
PTo := Pchar(´c:\Arquivos de programas\Cadastro\Cadastro´); //define o local de destino, caso seja uma pasta e a mesma não exista, a própria função a cria
FflaGs := foF_Allowundo; //confirma o procedimento
end;
shFileoperation(Dados); //finaliza o procedimento
end;
end;

Disculpa, esqueci de dizer algumas coisa sobre a rotina de backup acima

1- No formulario vc deve por um ComboBox, que vai chamar cb

2- E um BitBtn1, que vai se chamar BitBtn1.

3- E não se esqueça de mudar os caminhos pra onde a tabela sera copiada e restaurada, no exemplo acima ta o caminho do programa que estou desenvolvendo, se você não souber o caminho é onde esta digitado

PFrom := Pchar(´c:\Arquivos de programas\Cadastro\Cadastro\Cadastro.db´); // define o local de origem e o que deve ser copiado
PTo := Pchar(´A:\´); //define o local de destino, caso seja uma pasta e a mesma não exista, a própria função a cria

Se vc puder me enviar essa aplicação também eu ficaria muito agradecido!
Cícero

Ilanocf


Gostaria muito de receber os arquivos...
meu email é piane1@mailbr.com.br

Desde já muito obrigada


Danieli