利用fso显示某一文件夹中的所有内容

利用fso显示某一文件夹中的所有内容
<
%
&
#39
创建一个FileSystemObject对象的事例
Set 
MyFileObject=Server.CreateObject("
Scripting.FileSystemObject"
)
path=server.mappath("
./folder"
) 
&
#39
当前目录下folder文件夹目录
&
#39
创建一个Folder对象
Set 
MyFolder=MyFileObject.GetFolder(path)
For 
Each 
thing 
in 
MyFolder.SubFolders 
&
#39
获取子文件夹
 
response.write 
"
<
p>
目录："
&

#38
thing
&
#39
 
MyFileObject.DeleteFolder 
thing 
删除文件夹，注意使用
next 

&
#39
循环显示其中文件
For 
Each 
thing 
in 
MyFolder.Files
Response.Write("
<
p>
文件："
&

#38
thing) 
&
#39
输出文件路径
&
#39
MyFileObject.DeleteFile 
thing 
&
#39
删除这些文件,此删除不可以恢复，需要小心使用
Next
%>