Backup

Delphi

17/10/2006

O q tem de errado aki pessoal

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

Souzaaguiar

Curtidas 0

Respostas

Sremulador

Sremulador

17/10/2006

amigo pode ser a /


GOSTEI 0
Seccomiro

Seccomiro

17/10/2006

usa essa funēćo...

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
Souzaaguiar

Souzaaguiar

17/10/2006

if CopyFile(“origem“, “destino“, true)

Ele nao entra no if de jeito nenhum. Estou usando delphi 4. Pode ser isso?

Obrigado!


GOSTEI 0
Souzaaguiar

Souzaaguiar

17/10/2006

nenhum dos dois

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
POSTAR