ASP displays all files in the directory and displays the file size

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" >
&LT;TD width= "20%" bgcolor= "#fbf4f4" >&nbsp; <%=f.name%> Folders </td>
&LT;TD width= "80%" bgcolor= "#fbf4f4" >&nbsp;.gif" width=<% =drawbar ("" &f.name& ")%> height=10>&nbsp;
<%showspaceinfo ("" &f.name& ")%></td>
</tr>
</table>
<table width= "100%" border= "0" cellpadding= "0" cellspacing= "0" >
<tr>
&LT;TD height= "2" ></td>
</tr>
</table>
<%i=i+1
If I2<10 Then
I2=i2+1
Else
I2=1
End If
Next

function to process file size

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 & "&AMP;NBSP;KB"
End If
If size>1024 Then
Size= (size/1024)
Showsize=size & "&AMP;NBSP;MB"
End If
If size>1024 Then
Size= (size/1024)
Showsize=size & "&AMP;NBSP;GB"
End If
Response.Write "<font face=verdana>" & showsize & "</font>"
End Sub

%>