学步园

function getdirsize(dir: string; subdir: boolean): longint;
var
rec: TSearchRec;
found: integer;
begin
result := 0;
if dir[length(dir)] '/' then dir := dir + '/';
found := findfirst(dir + '*.*', faAnyFile, rec);
while found = 0 do
begin
inc(result, rec.size);
if (rec.Attr
and faDirectory > 0)
and (rec.Name[1] '.')
and (subdir = true) then
inc(result, getdirsize(dir + rec.Name, true));
found := findnext(rec);
end;
findclose(rec);
end;