Série da semana: Autenticação em Aplicações Web 

Veja mais

Selecionar arquivos .XML pela data de criação

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

Respostas

14/01/2018

Vinícius Currículo

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 Citar