Fórum Backup #331283
17/10/2006
0
procedure TFrmbackup.bbtCopiarClick(Sender: TObject);
var origem, destino: String;
begin
origem := ExtractFilePath(Application.ExeName)+ ´Loja.gdb´;
destino := Edit1.Text;
if FileExists(destino) then DeleteFile(destino);
if CopyFile(´origem´,´destino´,true)
then
ShowMessage(´Backup Efetuado com sucesso´)
else
Showmessage(´Copia Nao Efetuada´);
end;
Sempre dah copia nao efetuada!!!
Obrigado
Souzaaguiar
Curtir tópico
+ 0Posts
17/10/2006
Sremulador
Gostei + 0
17/10/2006
Seccomiro
function MudaBarra(Str: string): string;
var i: integer;
begin
for i := 1 to Length(Str) do
if Str[i] = ´/´ then result := result + ´\´ else result := result + str[i];
end;ai passa assim no seu código:
procedure TFrmbackup.bbtCopiarClick(Sender: TObject);
var origem, destino: string;
begin
origem := MudaBarra(ExtractFilePath(Application.ExeName) + ´Loja.gdb´);
destino := MudaBarra(Edit1.Text);
if FileExists(destino) then DeleteFile(destino);
if CopyFile(´origem´, ´destino´, true)
then
ShowMessage(´Backup Efetuado com sucesso´)
else
Showmessage(´Copia Nao Efetuada´);
end;ps.: nao testei aki, só fiz ...
qualquer coisa reclama aew
[]´sss
Gostei + 0
18/10/2006
Souzaaguiar
Ele nao entra no if de jeito nenhum. Estou usando delphi 4. Pode ser isso?
Obrigado!
Gostei + 0
18/10/2006
Souzaaguiar
if FileExists(destino) then DeleteFile(destino);
if CopyFile(´origem´, ´destino´, true)
then
ShowMessage(´Backup Efetuado com sucesso´)
else
Showmessage(´Copia Nao Efetuada´);
end;
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)