Selecionar arquivos .XML pela data de criação

Delphi

13/01/2018

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.
Emerson

Emerson

Curtidas 0

Respostas

Vinicius Diniz

Vinicius Diniz

13/01/2018

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.
GOSTEI 0
POSTAR