dificuldade copyfile

13/08/2008

1

Bom dia gente.

faz um bom tempo que nao utilizo delphi estou com dificuldade nesse codigo:

var
diretorio : string;
dia, mes, ano, horas, minutos, segundos, milisegundos: Word;
begin

with dm do begin
try
DecodeDateTime(Now, ano, mes, dia, horas, minutos, segundos, milisegundos);

diretorio := ´C:\Sys\Backup do dia´+ IntToStr(dia) + ´-´ + IntToStr(mes) + ´-´ + IntToStr(ano);


ADOConnection1.Connected := false;

if FileExists(´C:\Sys\Banco.mdb´)then begin
CreateDir( diretorio );
CopyFile(´C:\Sys\Banco.mdb´, );
showmessage(´Backup realizado com suecesso´);
ADOConnection1.Connected := true;
exit;
end;

Na linha CopyFile estou tentando jogar minha variavel (diretorio) mas nao funciona, tentei de outras formas se eu comentar essa linha ele cria a pasta , mas quando eu descomento essa linha ele gera erro. pois a finalidade do codigo e gerar backups diarios com a data do dia .
ou seja preciso que ele gere um backup com o no nome ´C:\Sys\Backup do dia´ e dentro dessa pasta o arquivo .mdb

fico no aguardo gente valew


Responder

Posts

13/08/2008

Rodc

Acho que CreateDir e CopyFile recebem um ponteiro de string. Neste caso, ficaria assim:
CreateDir(PChar(diretorio)); 
CopyFile(PChar(´C:\Sys\Banco.mdb´), ); 



Responder

13/08/2008

Ciotti

ola amigo vc postou
CopyFile(PChar(´C:\Sys\Banco.mdb´), );

o que vem depois da virgula



tks


Responder

13/08/2008

Rodc

Não sei, foi você quem postou o código assim, eu só coloquei o PChar. Mas imagino que seja o destino do arquivo. Dá uma olhada no help do Delphi.


Responder

13/08/2008

Ciotti

vc tem algum exemplo :


Responder

13/08/2008

Rodc

Formato da função na ajuda do SDK:
BOOL CopyFile(

    LPCTSTR lpExistingFileName,// pointer to name of an existing file 
    LPCTSTR lpNewFileName,// pointer to filename to copy to 
    BOOL bFailIfExists // flag for operation if file exists 
   );

Exemplo:
CopyFile(PChar(´c:\arquivo.txt´), PChar(´c:\windows\arquivo.txt´), true));



Responder