Belegter Speicherplatz von Verzeichnissen ermitteln?

[jziersch]

Zitat von dstein:

Die einzelnen Dateien mit FileSize auslesen und zusammenzählen ist recht langsam und mit Subdirs wird es noch langsamer.

So kann man es machen:

Code:

function DirSize( path : String ) : Int64;
var sr: TSearchRec;  
begin
      path := IncludeTrailingPathDelimiter(path);
      Result := 0;
      if FindFirst( path   + '*.*', faAnyFile, sr) = 0 then
      try
          repeat
              if (sr.Attr and faDirectory)=faDirectory then
              begin
                 if  (sr.Name<>'') and  (sr.Name<>'.') and  (sr.Name<>'..') then
                    Result := Result  + DirSize(path + sr.Name );
              end
              else Result := Result  + sr.Size;
          until FindNext(sr) <> 0;
      finally
          FindCLose(sr);
      end;
end;