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%>
           

             
               
               
             
           

<%=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 

%>