asp fso列出所有目錄下文件夾與文件

　　<%
       Set FSO=ServerCreateObject("ScriptingFileSystemObject")
       Set ServerFolder=FSOGetFolder(ServerMapPath("photo"))
       Set ServerFolderList=ServerFolderFiles
       For Each ServerFileEvery IN ServerFolderList
       %>
              <% =ServerFileEveryName %>
       <% Next %>

　　
 

From:http://tw.wingwit.com/Article/program/net/201311/14033.html