asp显示目录下所有文件并显示文件大小

set fso=server.createobject("scripting.filesystemobject")
    set f = fso.getfolder(spp)
    set fc = f.subfolders
    i=1
   i2=1
    for each f in fc%>
            <table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#ffffff">
              <tr bgcolor="#ffffff">
                <td width="20%" bgcolor="#fbf4f4">&nbsp; <%=f.name%>文件夹</td>
                <td width="80%" bgcolor="#fbf4f4">&nbsp;<img src="admin/images/edit/bar<%=i2%>.gif" width=<%=drawbar(""&f.name&"")%> height=10>&nbsp;
                    <%showspaceinfo(""&f.name&"")%></td>
              </tr>
            </table>
          <table width="100%" border="0" cellpadding="0" cellspacing="0">
              <tr>
                <td height="2"></td>
              </tr>
            </table>
          <%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 & "&nbsp;byte"
   if size>1024 then
      size=(size1024)
      showsize=size & "&nbsp;kb"
   end if
   if size>1024 then
      size=(size/1024)
      showsize=size & "&nbsp;mb"  
   end if
   if size>1024 then
      size=(size/1024)
      showsize=size & "&nbsp;gb"   
   end if  
   response.write "<font face=verdana>" & showsize & "</font>"
  end sub 

%>