Author: Christian Cristofori

This function tells you how many bytes a folder, with all subfolders and contained 
files is taking on a HD, CD, floppy or whatever.

Answer:

f
1   unction FolderSize(fld: string): dword;
2   var
3     sr: tsearchrec;
4     r: integer;
5     s: dword;
6   begin
7     fld := includetrailingbackslash(fld);
8     s := 0;
9     r := findfirst((fld + '*.*'), faanyfile, sr);
10    while (r = 0) do
11    begin
12      application.processmessages;
13      if ((sr.attr and fadirectory) <> 0) then
14      begin
15        if ((sr.name <> '.') and (sr.name <> '..')) then
16          s := s + foldersize(fld + sr.name);
17      end
18      else
19        S := S + SR.FindData.nFileSizeLow;
20      r := findnext(sr);
21    end;
22    sysutils.findclose(sr);
23    result := s;
24  end;