代码如下：

<%
set myFile=server.CreateObject("Scripting.FileSystemObject")
Set myFolder=myFile.getFolder(server.mappath("aa/"))

response.write "子文件夹：<br />"
For Each item In myFolder.subFolders
    response.write  "文件夹名["& item.name &"]&nbsp;&nbsp; "& item &"<br />"
    response.write  "<hr />"
Next

response.write "文件：<br />"
For Each item In myFolder.files
    response.write  "[" & item & "]<br />"
    response.write  "文件名：   " & item.name  & "<br />" 
    response.write  "文件路径： " & item.path  & "  <br />"
    response.write  "文件大小： " & Round(item.Size/1024,2)  & " K字节 <br />"  ’Round函数来作四舍五入的操作 忽略返回整数
    response.write  "<hr />"
Next
%>