Não copia arquivo após concaternar o seu nome

04/08/2004

Olá,

Estou utilizando a função CopyFile e quando o código está como logo abaixo funciona perfeitamente.
 CopyFile(´c:\Origem\arq_texto´, ´c:\Origem\novo_arq_texto.text´True)

M,as, quando concateno o nome e a hora do sistema para nomear o arquivo não funciona!

Segue o código que coloque no evento onClick de um Button
procedure TForm1.Button1Click(Sender: TObject);
var NomeArq: string;
begin
  NomeArq := ´c:\Origem\´+DateToStr(Date)+´ ´+TimeToStr(Time)+´.txt´;

  CopyFile(´c:\Origem\arq_texto´, pchar(nomearq), True)

end;


O que quero que após copiar o arquivo tenho o seu nome da seguinte forma:

Exemplo

04/08/2004 12:30.txt



Chucky21

Respostas

04/08/2004

Rafs

Os caracteres \ / : * ? ´ < > | não são aceitos para nomear arquivos.
Você deverá retirar estes caracteres do nome do arquivo para que ele possa ser copiado.
[list:9cd7ed2178]
Exemplo
04082004 1230.txt
[/list:u:9cd7ed2178]


Responder Citar

04/08/2004

Nildo

Entao voce pode substituir o

DateToStr(Date)

por

StringReplace( DateToStr(Date), ´/´, ´´, [rfReplaceAll] );

O mesmo esquema com o TimeToStr, substituindo o ´/´ pelo ´:´.


Responder Citar