Iniciante Em Delphi

[Irlando Santos]

Olá pessoal

To com problemas neste código de backup, ele apresenta o seguinte erro: [Error] UnitBackup.pas(39): Undeclared identifier: 'CopyFileTo'

Será que alguém pode me ajudar ?

procedure TFormBackup.BotaoCopiarClick(Sender: TObject);

Var

Origem , Destino : String;

begin

Origem := ExtractFilePath(Application.Exename)+'C:\Software Clube\Clube.gdb';;

Destino := EditDestino.Text;

If FileExists(Destino) Then DeleteFile(Destino);

If (CopyFileTo(Origem, Destino))

Then

ShowMessage('Backup Efetuado com Sucesso !')

Else

ShowMessage('Cópia Não Efetuada !');

end;

end.

[Visitante: eliane_toledo_ri]

Olá pessoal

To com problemas neste código de backup, ele apresenta o seguinte erro: [Error] UnitBackup.pas(39): Undeclared identifier: 'CopyFileTo'

Será que alguém pode me ajudar ?

procedure TFormBackup.BotaoCopiarClick(Sender: TObject);

Var

Origem , Destino : String;

begin

Origem := ExtractFilePath(Application.Exename)+'C:\Software Clube\Clube.gdb';;

Destino := EditDestino.Text;

If FileExists(Destino) Then DeleteFile(Destino);

If (CopyFileTo(Origem, Destino))

Then

ShowMessage('Backup Efetuado com Sucesso !')

Else

ShowMessage('Cópia Não Efetuada !');

end;

end.

Acontece que você tem q declarar na seção uses o que você ta utilizando pois ta falando que você nao declarou. Faz o seguinte tenta colocar essas uses aqui e se quiser usa esse meu codigo aqui. qq coisa to aqui.

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls,Buttons, IdGlobal;

procedure TFormulario_backup.BitBtn1Click(Sender: TObject);

var

origem, destino: string;

begin

origem:= ExtractFilePath(Application.ExeName)+ 'C:\Documents and Settings\Eliane\Desktop\ELIANE_TOLEDO\ULTRAGE.FDB';

destino:=EdDestino.Text+ '\ULTRAGE2.gdb';

if FileExists(destino) then

DeleteFile(destino);

if(CopyFileTo(PChar(origem), PChar(destino))) then

ShowMessage('Backup efetuado com sucesso')

else

ShowMessage('Copia não efetuada');

end;

end.

[thiagopaes]

Amigo,

Estou com dificuldades p/ implementar o Função CopyFileTo no meu sistema. Fiz um formulário de Backup contendo o mesmo código fonte que o acima citado por Irlando Santos e não estou conseguindo fazer o backup!

O que eu preciso digitar no EditDestino para fazer a cópia com sucesso? Preciso digitar o Path como? Assim como exemplo "c:\Backup" ou "C:\Backup\NomeDoArquivo.Extensão"

Se alguém poder me ajudar eu fico grato.

Obrigado,