请问如何获取指定文件夹的大小？

Question

是吗，40分怎么样？答出来之后再加分，如何？

Answer 1

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; procedure TForm1.Button1Click(Sender: TObject); 
begin 
  label1.Caption := FloatToStr(GetDirSize('e:\download', false)/sqr(1024)) + ' MBytes'; 
  label2.Caption := FloatToStr(GetDirSize('e:\download', true)/sqr(1024)) + ' MBytes'; 
end; 
wu~~~~~~~~~~~~~~~~~~~~,呵呵:-)