Anzahl der Files in einem Verzeichnis ermittln

[Christian18]

Hallo,

ich habe jetzt doch eine möglichkeit gefunden wie ich die anzahl der files ermitteln kann.

Ich habe es so gemacht:

Delphi-Quellcode:

function TProgramm.GetPath() : String;
  var i : TIniFile;
begin
  try
    i:=TIniFile.Create(ExtractFilePath(Application.ExeName) + 'Setting.ini');
    Result:=i.ReadString('Settings', 'Path', '');
  finally
    i.Free;
  end;
end;

function TProgramm.GetFiles() : String;
  var s : TSearchRec;
      i : Integer;
begin
  if FindFirst(GetPath + '*.*', faAnyFile, s) = 0 then
    begin
      i:=0;
      repeat
        Inc(i);
      until FindNext(s) <> 0;
      Result:=IntToStr(i - 2)
    end;
end;

Bei manchen Verzeichnissen wird aber eine falsche anzahl zurückgegeben. Worann liegt das und warum muss ich die anzahl -2 nehmen, damit die richtige anzahl raus kommt???