Anzahl der Files in einem Verzeichnis ermittln

[Christian18]

Hi,

wie kann man die Anzahl der Dateien in einem bestimmten Verzeichnis ermitteln???

[Klaus01]

Hallo,

auf die Schnelle fällt mir nur das Zählen und findfirst und findnext ein.

Grüße
Klaus

[Christian18]

Hi,

hast du auch ein kleines bsp???

[Muetze1]

In der Hilfe steht ein kleines Beispiel. Zu finden unter FindFirst() und FindNext() sowie FindClose()

[Hawkeye219]

Da war doch mal was: klick

Gruß Hawkeye

[Klaus01]

oder auch hier -> http://www.delphibasics.co.uk/RTL.asp?Name=FindNext

Grüße
Klaus

[Christian18]

mhhhhh...

irgendwie bin ich zu blöd dazu. Ich habe es immernoch nicht geschafft die anzahl der files in einem Verzeichnis zu ermitteln.

MFG Christian18

[Klaus01]

Delphi-Quellcode:

var
  searchResult : TSearchRec;
  i : Integer;
begin
  i:=0;
  // Try to find regular files matching *.* in the current dir
  if FindFirst('*.*', faAnyFile, searchResult) = 0 then
  begin
    repeat

      inc(i);

    until FindNext(searchResult) <> 0;

    // Must free up resources used by these successful finds
    FindClose(searchResult);


  end;
end;

oder mit dem Code von marabu:

Delphi-Quellcode:

// uses QFileCtrls; 
function CountFiles(filespec: string): integer; 
var 
  d: TDirectory; 
begin 
  d := TDirectory.Create(nil); 
  d.BeginUpdate; 
  d.FileMask := ExtractFileName(fileSpec); 
  d.Location := ExtractFilePath(fileSpec); 
  d.FileType := [ftArchive]; 
  d.EndUpdate; 
  Result := d.Count; 
  d.Free; 
end;

Grüße
Klaus

[edit] showMessage entfernt

[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???

[Klaus01]

Delphi-Quellcode:

function TProgramm.GetFiles() : String; 
  var s : TSearchRec; 
      i : Integer; 
begin 
  if FindFirst(GetPath + '*.*', faAnyFile, s) = 0 then 
    begin 
      i:=0; // hier setzt Du die Anzahl auf 0 obwohl schon eine Datei gefunden wurde
      repeat 
        Inc(i); 
      until FindNext(s) <> 0; 
      Result:=IntToStr(i - 2) // weil bei faAnyFile auch . und .. mitgezählt werden
    end; 
end;

wenn Du anstelle von faAnyFile faArchive verwendest sollte es korrekt zählen.

Grüße
Klaus

[Luckie]

Weil es noch zwei unsichtbare Einträge gibt: "." für das aktuelle und ".." für das übergeordnete Verzeichnis. Und da du nicht nur Dateien, sondern auch Ordner mit zählst, werden die eben auch mitgezählt.

[himitsu]

Zitat:

irgendwie bin ich zu blöd dazu. Ich habe es immernoch nicht geschafft die anzahl der files in einem Verzeichnis zu ermitteln.

Vorallem ohne uns zu sagen wie du es nicht schaffst wird es eh nichts dir direkt zu helfen :winker:

[edit] zu lang zum senden gebraucht ... aber ich will endlich mal wieder 'ne RedBox sehn -.-''
PS: hier schwirren doch genug CodeBeispiele rum und fast überalls ist das mit den '.' und '..' zu erkennen?

[Hawkeye219]

Hallo,

Zitat:

Zitat von Im verlinkten Thread: marabu

Wichtig bei solchen Funktionen ist ja nur, dass man möglichst wenig eigene Codezeilen benutzt - in denen stecken die meisten Fehler.

Er hat Recht: in Christians Code fehlt ein FindClose-Aufruf...

Gruß Hawkeye