如何知道一个目录中有多少个文件？

Question

RT，谢谢了

Answer 1

例如我如何知道C:\Windows中有多少个EXE文件。

Answer 2

function FileCount(Path:String):Integer;
  var
    Rec:TSearchRec;
  begin
    Result:=0;
    if (FindFirst(Path,$01,Rec)=0) then
    begin
      repeat
        Inc(Result);
      until FindNext(Rec) <> 0;
      FindClose(Rec);
    end;
  end;  n:=FileCount('C:\Windows\*.EXE');

Answer 3

用filelistbox1.Items.Count就可以了
但得加个控件

Answer 4

子目录呢？？谢谢，这个问题我解决了。用递归+TStringList解决的