antp.be forum

Code: Select all

program ShowFolderSize;
var
  size: Double;

  function GetFolderSize(path: string): double;
  var
    s: string;
    lines: TStringList;
    values: TStringListEx;
    i: integer;
  begin
    result := 0;
    path := IncludeTrailingPathDelimiter(path);
    lines := TStringList.Create;
    values := TStringListEx.Create;
    values.Delimiter := #9;
    if DirectoryExists(path) then
    begin
      // List current folder
      s := ListDirectory(path, '*');
      // Extract lines
      lines.Text := s;
      // For all lines
      for i := 0 to lines.Count-1 do
      begin
        // Extract values of line (name, size, datetime, "D" if directory)
        values.DelimitedCSVText := lines.GetString(i);
        while values.Count < 4 do
          values.Add('');
        if (values.GetString(0) <> '') and
           (values.GetString(0) <> '.') and
           (values.GetString(0) <> '..') then
        begin
          // If it is a folder, we compute the size of this folder recursively
          if values.GetString(3) = 'D' then
            result := result + GetFolderSize(path + values.GetString(0))
          // Else we add the filesize to result
          else
          begin
            // We use function GetFileSize to get good filesize because the size returned
            // by function ListDirectory is only good for small files < 2 147 483 648 bytes
            if FileExists(path + values.GetString(0)) then
              result := result + GetFileSize(path + values.GetString(0))
            else
              result := result + StrToFloat(values.GetString(1));
          end;
        end;
      end;
    end;
    lines.Free;
    values.Free;
  end;
begin
  // Example
  size := GetFolderSize('C:\Movies\');
  ShowMessage(FloatToStr(size) + ' bytes');
end.