Re: [delphi-br] Contagem de arquivos

Tah na mão ... function ContaArquivo(pPath : String) : Integer; var Sr: TSearchRec; Tipo : Integer; begin Memo1.Clear; Result := 0; Tipo := faArchive; if FindFirst(pPath, Tipo, Sr) = 0 then begin if (Sr.Attr and Tipo) = Tipo then begin Inc(Result);

[delphi-br] Contagem de arquivos

Amigos, Preciso de uma ajuda para contar o número de arquivos de um determinado diretorio baseado na data do dia, por exemplo: Eu tenho que ter no diretorio 50 arquivos da data (07.08) se eles estiverem lá eu os deixo disponíveis para o processamento, mas se estiverem faltando arquivos ainda