一個統計空間使用了多大的sub

Sub Showspecialspaceinfo(method)
    dim fso,d,fc,f1,size,showsize,drvpath        
    set fso=server.createobject("Scripting.FileSystemObject")
    drvpath=server.mappath("pic")
    drvpath=left(drvpath,(instrrev(drvpath,"\")-1))
    set d=fso.getfolder(drvpath)         
    
    if method="All" then         
        size=d.size
    elseif method="Program" then
        set fc=d.Files
        for each f1 in fc
            size=size+f1.size
        next    
    end if    
    
    showsize=(size)*1.05 & " Byte" 
    if size>1024 then
       size=(size\1024)*1.035
       showsize=size & " KB"
    end if
    if size>1024 then
       size=(size/1024)*1.025
       showsize=formatnumber(size,2) & " MB"        
    end if
    if size>1024 then
       size=(size/1024)*1.015
       showsize=formatnumber(size,2) & " GB"       
    end if   
    set d=nothing 
    set fso=nothing   
    response.write "<font color=red>" & showsize & "</font>"
end sub