利用fso显示文件夹中的内容,包括子文件夹和文件名 <HTML> <HEAD><TITLE>fso显示文件夹内容(子目录和文件)</TITLE></HEAD> <style> body {font-size:12px;margin-top:20px;margin-left:20px;} </style> <BODY> <% '创建一个FileSystemObject对象的事例 Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject") '创建一个Folder对象 foldername=server.mappath("./") Set MyFolder=MyFileObject.GetFolder(foldername) i=0 '循环显示其中文件夹 response.write "显示文件夹：" For Each thing in MyFolder.subfolders Response.Write("<br>"&thing) i=i+1 Next response.write "<br>共有"&i&"个文件夹"
response.write "<p>显示文件名" '循环显示其中文件 i=0 For Each thing in MyFolder.Files Response.Write("<br>"&thing) i=i+1 Next response.write "<br>共有"&i&"个文件" %> </Body> </HTML>
