Подщитать кол-во файлов

[Antyan-screammer]

Помогите пожалуйста, как на Delphi сделать так что бы прога считала кол-во файлов в папке... ну и допустим при нажатии на кнопку вводила это число в Label...

Заранее спс

[NieL]

Например так:

procedure TForm1.Button1Click(Sender: TObject);

  function GetFileCount(const Dir: string): Integer;
  var
    SR: TSearchRec;
  begin
    Result := 0;
    if FindFirst(Dir + '\*.*',
      faAnyFile - faDirectory - faVolumeID, SR) = 0 then
      repeat
        Inc(Result);
      until
        FindNext(SR)<>0;
    FindClose(SR);
  end;

begin
  Label1.Caption := Format('%d', [GetFileCount('D:\My Job')]);
end;