Dateianzahl ermitteln

[mgubler]

Hallo zusammen,

ich habe folgende Frage:
ich habe einen Ordner mit mehreren Unterordnern und n Dateien.
Wie kann ich ermitteln, wie viele Dateien sich insgesamt in
diesem Hauptordner (incl. Unterordnern) befinden?

Bin für jede Hilfe dankbar!!!

Danke im voraus,
Marc

[Sanchez]

hi,

z.B. so:

Delphi-Quellcode:

function FileCount(_ordner : string): integer;
var files    : TSearchRec; 
    count : integer
begin
  count := 0;
  if FindFirst(ordner + '\*.*',faAnyFile or faDirectory, files) = 0 then begin
    repeat
      if (files.Attr and faDirectory) = faDirectory then begin
     count := count + FileCount(_ordner + '\' + files.Name);
   end else begin
        count := count + 1;
      end;
    until FindNext(files) <> 0;
    FindClose(files);
  end;
  result := count;
end;

Das ist ein ungetesteter Ansatz. Evtl passt da irgendwas noch nicht

grüße, daniel

[mgubler]

Danke für die prompte AW!

[himitsu]

Einen kleinen Teil soltest du aber noch ändern:

Code:

[s]end else begin
  count := count + 1;
end;[/s]

in

Code:

[s]end else begin
  if (files.Name <> '.') and (files.Name = '..') then
    count := count + 1;
end;[/s]

Sonst stimmt die Anzahl der Dateien nicht.

Der Rest dürfte so funktionieren.


http://www.FrankNStein.de/Smiley-Kuss.gif * * http://www.FrankNStein.de/Smiley-Spinne.gif * * * http://www.FrankNStein.de/Smiley-Winken.gif

[Christian Seehase]

Moin Himitsu,

müsste auch so gehen, da . und .. Verzeichnisse sind.

[himitsu]

Ups, das kommt davon, wenn man den Namen vor der Unterscheidung auf Datei/Verzeichnis prüft.
Hab nochmal nachgeguckt - Christian hat also Recht.


http://www.FrankNStein.de/Smiley-Kuss.gif * * http://www.FrankNStein.de/Smiley-Spinne.gif * * * http://www.FrankNStein.de/Smiley-Winken.gif

[Brüggendiek]

Hallo!

@himitsu: Im Prinzip hattest Du doch Recht mit "." und ".." - nur hast Du das an der falschen Stelle geprüft!

Der Code von Sanchez zählt nämlich auch die Directories "." und ".." mit - eindeutig ein schwerer Fehler! Deine Abprüfung muß also beim Directory-Zweig stehen.

Mit einer Hilfsvariablen wird es übrigens noch einfacher (verkürzt auf den sinngebenden inhalt):

Delphi-Quellcode:

var code:integer;

code := FindFirst(...)
while code = 0 do
begin
  ... tu was mit gefundenem
  code := findnext(...);
end;

Gruß

Dietmar Brüggendiek

[himitsu]

OK, dann also so:

Delphi-Quellcode:

Function FileCount(Ordner: String): Integer;
  Var Files: TSearchRec;
    Count: Integer;

  Begin
    If (Ordner > '') and (Ordner[Length(Ordner)] <> '\') Then Ordner := Ordner + '\';
    Count := 0;
    If FindFirst(Ordner + '*.*', faAnyFile, Files) = 0 Then Begin
      Repeat
        If (Files.Attr and faDirectory) <> faDirectory Then Inc(Count)
        Else If (Files.Name <> '.') and (Files.Name <> '..') Then
          Inc(Count, FileCount(Ordner + Files.Name + '\');
      Until FindNext(Files) <> 0;
      FindClose(Files);
    End;
    Result := Count;
  End;

Ich hab den Code gleich mal etwas optimiert:

Delphi-Quellcode:

Count := Count + 1;
{=}
Inc(Count);

In faAnyFile ist faDirectory schon drin (siehe OH)


http://www.FrankNStein.de/Smiley-Kuss.gif * * http://www.FrankNStein.de/Smiley-Spinne.gif * * * http://www.FrankNStein.de/Smiley-Winken.gif

[MathiasSimmack]

Zitat von himitsu:

Die andere Variante hat aber einen Nachteil: [...] Wenn FindFirst nichts findet, liefert FindClose einen Fehler.

Welcher Fehler soll das sein? Will sagen: ich sehe keinen. Nur wenn du direkt mit der API-Funktion "FindFirstFile" arbeitest, musst du prüfen ob das Rückgabeergebnis ungleich INVALID_HANDLE_VALUE ist. Nur dann darfst du "FindClose" (API) aufrufen.

Aber Borland weiß das auch:

Zitat von SysUtils.pas:

Delphi-Quellcode:

procedure FindClose(var F: TSearchRec);
begin
  if F.FindHandle <> INVALID_HANDLE_VALUE then
  begin
    Windows.FindClose(F.FindHandle);
    F.FindHandle := INVALID_HANDLE_VALUE;
  end;
end;

[himitsu]

@Mathias:
wenn das doch geht, dann tut es mir sehr leid.
Es ist nur so, das es früher bei mir zu Fehlermeldungen geführt hat. (Delphi 4 Standard)


Gut, dann geht es auch noch mal nach dir:

Delphi-Quellcode:

Function FileCount(Ordner: String): Integer;
  Var Files: TSearchRec;
    Count, Code: Integer;

  Begin
    If (Ordner > '') and (Ordner[Length(Ordner)] <> '\') Then Ordner := Ordner + '\';
    Count := 0;
    Code := FindFirst(Ordner + '*.*', faAnyFile, Files) = 0 Then Begin
    While Code = 0 do Begin
      If (Files.Attr and faDirectory) <> faDirectory Then Inc(Count)
      Else If (Files.Name <> '.') and (Files.Name <> '..') Then
        Inc(Count, FileCount(Ordner + Files.Name + '\');
      Code := FindNext(Files);
    End;
    FindClose(Files);
    Result := Count;
  End;

Jetzt ist zwar im gegensatz zur vorherigen Version ein Integer mehr da, aber dafür ein IF weniger.
Hab mir auch noch mal dir OH angeguckt - die vorherige Variante ist mehr nach der OH.

Muß jetzt halt jeder selber entscheiden, was ihm/ihr besser gefällt.

[OT]
nochmal @ Mathias:
es haben sich mittlerweile ja auch noch andere Probleme von selbst behoben.
z.B. gab es Fehlermeldungen, wenn ich ein leeres Array mit SetLength(irgend ein Array, 0); nochmal auf Length = 0 setzte.

Der folgende Code ist jetzt auch schon bei mir überflüßig geworden:
If Length(Array) <> 0 Then SetLength(Array, 0);
[/OT]


http://www.FrankNStein.de/Smiley-Kuss.gif * * http://www.FrankNStein.de/Smiley-Spinne.gif * * * http://www.FrankNStein.de/Smiley-Winken.gif