<HTML>
<HEAD><TITLE>列举文件夹内容</TITLE></HEAD>
<BODY>
<%
'创建一个FileSystemObject对象的事例
Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject")
'创建一个Folder对象
dim str
str=server.MapPath("../../")
Set MyFolder=MyFileObject.GetFolder(str)
Response.Write str+"文件夹里面的文件<hr>"
'循环显示其中文件
response.write "根目录下所有文件:<br>"
For Each filename in MyFolder.Files
Response.Write(filename+"<br>")
Next
response.write "根目录下所有子目录:<br>"
For Each filename in MyFolder.SubFolders
Response.Write(filename+"<br>")
Next
%>
</Body>
</HTML>