<%
'创建一个FileSystemObject对象的事例
Set MyFileObject=Server.CreateObject("Scripting.xscSystemObject")
'创建一个Folder对象
Set MyFolder=MyFileObject.GetFolder("E:\yubo")
'循环显示其中文件
For Each thing in MyFolder.Files
Response.Write("<p>"&thing)
Next
FOr each things in MyFolder.SubFolders
Response.Write("<p>"&things)
next
%>