Não copia arquivo após concaternar o seu nome
Olá,
Estou utilizando a função CopyFile e quando o código está como logo abaixo funciona perfeitamente.
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
O que quero que após copiar o arquivo tenho o seu nome da seguinte forma:
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
Curtidas 0
Respostas
Rafs
04/08/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]
Você deverá retirar estes caracteres do nome do arquivo para que ele possa ser copiado.
[list:9cd7ed2178]
Exemplo
04082004 1230.txt
[/list:u:9cd7ed2178]
GOSTEI 0
Nildo
04/08/2004
Entao voce pode substituir o
DateToStr(Date)
por
StringReplace( DateToStr(Date), ´/´, ´´, [rfReplaceAll] );
O mesmo esquema com o TimeToStr, substituindo o ´/´ pelo ´:´.
DateToStr(Date)
por
StringReplace( DateToStr(Date), ´/´, ´´, [rfReplaceAll] );
O mesmo esquema com o TimeToStr, substituindo o ´/´ pelo ´:´.
GOSTEI 0