Dateianzahl ermitteln

[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