(Resolvido) Copiar Arquivos

[Eder]

Ola..pessoal

Tou tentando copiar arquivos de uma pasta pra outra mas não ta funcionando...

tenho duas strings:

ArqOrigem (local de origem)

ArqDestino(local de Destino).

quando tento copiar da erro que tratei abaixo

IF CopyFile('ArqOrigem','ArqDestino',False)THEN
BEGIN
SHOWMESSAGE('Arquivo copiado com Sucesso.');
end
ELSE
SHOWMESSAGE('ERRO AO COPIAR Arquivo ');
END;

se eu usar assim funciona(sem trabalhar com variaveis):

CopyFile('c:\teste.txt','s:\teste.txt',False)

alguém sabe me dizer porque não copia??

Grato

[Churc]

Opa

A Funcao CopyFile() faz parte da API do Windows, como foi escrito em C então utiliza o formato PChar

neste caso voce teria que ter dado cast na String, não sei nem como compilou rs

var
  ArqOrigem, ArqDestino: String;
begin
  ArqOrigem := 'C:\teste.txt';
  ArqDestino := 'S:\teste.txt';
  if CopyFile(PChar(ArqOrigem), PChar(ArqDestino), False) then
  ShowMessage('Arquivo copiado com sucesso!') else
  ShowMessage('Falha ao tentar copiar o arquivo.');
end;

abracos

[Eder]

neste caso voce teria que ter dado cast na String, não sei nem como compilou rs

R.: Beleza...mas compilou...rs. é isto que tava intrigado..

valeu..Cherc...Agradecido

t+

:D