Série da semana: Angular, API RESTful e Banco de Dados

Veja mais

Selecionar arquivos .XML pela data de criação

13/01/2018

1

Olá,

Estou com dificuldades com este código abaixo. não consigo selecionar os arquivos no período informado, ao ser executado está selecionando todas os arquivos .xml na pasta, alguém poderia me auxiliar nesse código?

begin
I := FindFirst(Caminho+'LogNFCe\\NFCe\\*.xml', faAnyFile, SR);
while I = 0 do
begin
//if (DateToStr(FileTimeToDTime(SR.FindData.ftCreationTime)) >= Datetostr(dtp1.Date)) and (DateToStr(FileTimeToDTime(SR.FindData.ftCreationTime)) <= Datetostr(dtp2.Date)) then
if (DateToStr(FileTimeToDTime(SR.FindData.ftLastWriteTime)) >= Datetostr(dtp1.Date)) and (DateToStr(FileTimeToDTime(SR.FindData.ftLastWriteTime)) <= Datetostr(dtp2.Date)) then
begin
CopyFile(PChar(Caminho+'LogNFCe\\NFCe\\'+SR.Name), PChar(Caminho+'Temp\\Autorizadas\\'+sr.Name), true)
end;
I := FindNext(SR);
end;
end;
Desde já obrigado.

Posts

14/01/2018

Vinícius

Desculpe talvez minha inocência mas talvez seja melhor comparar dois Integers, ou dois dates ao invés de duas Strings não ?
Tente comparar as datas desta forma.
       FileDateToDateTime(FileAge(...))

Desculpe espero poder ter ajudado.
Responder