dificuldade copyfile
13/08/2008
0
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
Ciotti
Posts
13/08/2008
Rodc
CreateDir(PChar(diretorio)); CopyFile(PChar(´C:\Sys\Banco.mdb´), );
13/08/2008
Ciotti
CopyFile(PChar(´C:\Sys\Banco.mdb´), );
o que vem depois da virgula
tks
13/08/2008
Rodc
13/08/2008
Rodc
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));
Clique aqui para fazer login e interagir na Comunidade :)
