选择一个文件夹，显示文件文件夹所有文件名称。。。

刚好今天写了一个函数
楼主看看，有问题告诉我~~hoho~
rootF的值就是你要查看的文件夹
<%
function getAll(rootF,str)
set fso = Server.CreateObject("scripting.filesystemobject")
set folder = fso.getFolder(Server.MapPath(rootF))
for each subfolder in folder.SubFolders
    Response.Write(str&subfolder.name&"<br>")
call getAll(rootF&"/"&subfolder.name,str & "&nbsp;&nbsp;&nbsp;&nbsp;")
for each file in subfolder.files
    Response.Write(str&"&nbsp;&nbsp;&nbsp;&nbsp;"&file.name & "<br>")
i = i + 1
next
next
if folder.name = rootF then
for each file in folder.files
    Response.Write(file.name & "<br>")
i = i + 1
next
end if
set folder = nothing
set fso   = nothing
end functioni = 0
rootF = "CostCenterMIS"   '要查看的文件夹
Response.Write(rootF&"<br>")
call getAll(rootF,"&nbsp;&nbsp;")
Response.Write("文件总数="&i)
%>