Função Copy

[Paulo Nobre]

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;

No windows xp funciona.

Testando no windows 98 não funcionou.

Alguém poderia me dizer onde está o erro??

[Graymalkin]

Você tem certeza de que a pasta de trabalho é realmente a esperada (a que possui esses arquivos)? Você especificou caminhos relativos na origem, porém pode ser que a pasta de trabalho não esteja correta (dê uma olhada nas propriedades do atalho do programa [se não me engano, é em "Iniciar em:" que deve estar a pasta], ou tente abrir o programa pelo Windows Explorer estando na pasta dele [não utilizando o Iniciar -> Executar] e veja se dá certo). É só uma idéia,

Abraços,

Graymalkin

[Paulo Nobre]

Você tem toda razão Graymalkin, descobri que estava cometendo um erro idiota quando percebi que o programa funcionava no WindowsXp que continha o delphi ou seja de dentro do delphi funcionava, mas no outro que não tinha o delphi, ou seja, onde era executado via exe, não funcionava.

Em outras palavras, não tinha nada a ver com o sitema operacional e sim com a pessoa que se encontra entre o moniotr e o teclado.

Como você mesmo disse faltou especificar o caminho completo em relação ao diretório onde estaria instalado o .exe.

Obrigado por sua atenção em responder e problema resolvido.

Abraços

Paulo Nobre