asp fso列出所有目录下文件夹与文件

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