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"> </script><script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>