Estou usando a função copy para fazer backup de três arquivos txt.
O código usado é o seguinte:
procedure TfrmCopiasDeSeguranca.cmdCopiarClick(Sender: TObject);
begin
Try
CreateDir('C:\AACS');// Cria o diretório, caso não tenha sido criado.
CopyFile('Aniversariantes1.txt','C:\AACS\Aniversariantes1.txt',False);
CopyFile('Aniversariantes2.txt','C:\AACS\Aniversariantes2.txt',False);
CopyFile('Aniversariantes3.txt','C:\AACS\Aniversariantes3.txt',False);
MessageBox(handle,'As cópias de segurança foram executadas com sucesso! '+#13+#10+'As cópias se encontram em C:\AACS.','BACKUP',MB_IconInformation);
Except
MessageBox(handle,'Não foi possível efetuar o backup dos dados do programa.'+#13+#10+'Entre em contato com a Nobre Informática pelo email pcnobre@ig.com.br.','ERRO NO BACKUP',MB_IconStop);
end;
end;
Pergunta
Paulo Nobre
Estou usando a função copy para fazer backup de três arquivos txt.
O código usado é o seguinte:
No windows xp funciona.
Testando no windows 98 não funcionou.
Alguém poderia me dizer onde está o erro??
Link para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados