Dateianzahl ermitteln

[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