Dateisuche mit Zäheln der durchsuchten Datei-Grössen

[bttb930]

wahrscheinlich muß es einfach heissen:

Delphi-Quellcode:

  SearchedFiles := 0;
  SizeSum := 0;
  if FindFirst(Directory + Mask, faAnyFile - faDirectory, SR) = 0 then 
  try
    repeat
      List.Add(Directory + SR.Name);
      SizeSum := SizeSum + GetFileSize(IncludeTrailingBackslash(Directory) + sr.Name);
    until FindNext(SR) <> 0;
  finally
    FindClose(SR);
  end;