FSO的簡單操作

<%
www=0
set objfso = Server.CreateObject ("Scripting.FileSystemObject")
set uploadFolder = objfso.getfolder(Server.MapPath(""))
set uploadfile = uploadFolder.SubFolders
response.Write("<table width='75%' border='1' cellpadding='1' cellspacing='1' bordercolor='#663300'bgcolor='#FFFFFF'>")
response.Write("<tr bgcolor=#FFFFFF>")
response.Write("<td width='9%'>序號</td>")
response.Write("<td width='30%'>文件夾名</td></tr>")
     for each upname in uploadfile
     response.Write("<tr bgcolor=#FFFFFF>")
response.Write("<td>")
www=www+1
response.Write(www)
response.Write("</td>")
     response.Write("<td>")
response.Write(upname.name)
response.Write("</td>")
    

        response.Write("</tr>")
     next
%>

 

<%

set objfso = Server.CreateObject ("Scripting.FileSystemObject")
set uploadFolder = objfso.getfolder(Server.MapPath(""))
set uploadfile = uploadFolder.files
     response.Write("<table width='75%' border='1' cellpadding='1' cellspacing='1' bordercolor='#663300'bgcolor='#FFFFFF'>")
response.Write("<tr bgcolor=#FFFFFF>")
response.Write("<td width='9%'>序號</td>")
response.Write("<td width='30%'>文件名</td>")
response.Write("<td width='36%'>創建時間</td>")
    response.Write("<td width='11%'>大小</td></tr>")
i=0
     data = 0
     for each upname in uploadfile

i=i+1

response.Write("<tr bgcolor=#FFFFFF>")
response.Write("<td>")
response.Write(i)
response.Write("</td>")
response.Write("<td>")
response.Write(upname.name) '文件名
    response.Write("</td><td>")
response.Write(upname.DateLastModified)'文件修改時間
    response.Write("</td> <td>")
    aaa=upname.Size/1024
if aaa<1 then
aaaa= 0&aaa
else
aaaa= aaa
end if
response.Write (aaaa) '顯示文件大小<br> <br>
response.Write("k</td> </tr>")
     data=data+upname.Size
     next
    
     response.Write("<tr bgcolor=#FFFFFF><td>&nbsp;</td><td>&nbsp;</td><td>共這麼大</td><td>")
    response.Write(data/1024)
    response.Write("<font color=#FF0000>kb</font>")
    response.Write("</td></tr>" )
    
    
response.Write("</table>")

uploadfile = " "
    
%>

 
<script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>