Selecionar arquivos .XML pela data de criação
13/01/2018
0
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
Curtir tópico
+ 0
Responder
Posts
14/01/2018
Vinicius Diniz
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.
Responder
Clique aqui para fazer login e interagir na Comunidade :)