Anzahl der sich befindenden Dateien im Verzeichnis zählen ?

[Christian Seehase]

Moin Tino,

dann schau Dir doch das mal an:

Delphi-Quellcode:

function CountFilesInDir(const AsDirPath : string) : integer;

var
  srSearch : TSearchRec;

begin
  Result := -1; // -1 falls FindFirst schon fehlschlägt
  if FindFirst(AsDirPath+'\*.*',faAnyFile,srSearch) = 0 then
  begin
    inc(Result); // So, FindFirst hat geklappt, als mit 0 weiter
    try
      repeat // Kein Directory?
        if (srSearch.Attr and faDirectory) = 0 then
        begin
          inc(Result); // dann hochzählen
        end;
      until FindNext(srSearch) <> 0; // Bis keine Datei mehr gefunden
    finally // Egal was passiert, FindClose muss ausgeführt werden
      FindClose(srSearch);
    end;
  end;
end;

procedure TfrmMAIN.miFileOpenClick(Sender: TObject);
begin
  if not OpenDialog1.Execute then exit;
  ShowMessage(IntToStr(CountFilesInDir(ExtractFilePath(OpenDialog1.FileName))));
end;