Número De Arquivos Dentro De Uma Pasta

[Paulo Nobre]

Como faço para descobrir quantos arquivos tenho dentro de uma pasta?

Por exemplo dentro da pasta c:\tem.

[Graymalkin]

Segue um exemplo:

var retorno : TSearchRec;
var qt : integer;
begin
  qt := 0;
  if (FindFirst('d:\temp\*.*', faArchive, retorno)=0) then
    Repeat
      qt := qt+1;
    Until FindNext(retorno)<>0;
  FindClose(retorno);

  ShowMessage(IntToStr(qt));
end;

Certo?

Graymalkin

[Paulo Nobre]

Prezado Graymalkin

Muito obrigado pelo exemplo.

Grande Abraço

Paulo Nobre