Selecionar arquivos .XML pela data de criação
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.
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
Curtidas 0
Respostas
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.
Desculpe espero poder ter ajudado.
Tente comparar as datas desta forma.
FileDateToDateTime(FileAge(...))
Desculpe espero poder ter ajudado.
GOSTEI 0