Array
(
)

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

Chucky21
   - 04 ago 2004

Olá,

Estou utilizando a função CopyFile e quando o código está como logo abaixo funciona perfeitamente.#Código

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
#Código
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:

#Código
Exemplo

04/08/2004 12:30.txt



Rafs
   - 04 ago 2004

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]


Nildo
   - 04 ago 2004

Entao voce pode substituir o

DateToStr(Date)

por

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

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