【www.gdgbn.com--安卓教程】

set fso=server.createobject("scripting.filesystemobject")
    set f = fso.getfolder(spp)
    set fc = f.subfolders
    i=1
   i2=1
    for each f in fc%>
           
             
                  <%=f.name%>文件夹
                  height=10> 
                    <%showspaceinfo(""&f.name&"")%>
             
           
         
             
               
             
           
          <%i=i+1
   if i2<10 then
   i2=i2+1
   else
   i2=1
   end if
   next

处理文件大小的函数

sub showspaceinfo(drvpath)
   dim fso,d,size,showsize
   set fso=server.createobject("scripting.filesystemobject")   
   drvpath=server.mappath(drvpath)      
   set d=fso.getfolder(drvpath)   
   size=d.size
   showsize=size & " byte"
   if size>1024 then
      size=(size1024)
      showsize=size & " kb"
   end if
   if size>1024 then
      size=(size/1024)
      showsize=size & " mb"  
   end if
   if size>1024 then
      size=(size/1024)
      showsize=size & " gb"   
   end if  
   response.write "" & showsize & ""
  end sub 

%>

本文来源：http://www.gdgbn.com/shoujikaifa/27684/