获得文件夹下的文件,包括子目录`

今天想写项目说明文档,自然就包括每个文件的作用,
可是文件也蛮多了,一个一个用键盘敲,多麻烦啊~~
所以就临时写了一个函数
获得文件夹列表,目前知识测试了一下三层的文件夹,更多层就不知道了

代码如下:

<%

'********************************************************************************
'参数:rootF-根文件夹,该函数将输出这个文件夹下的所有文件
'         str     -空格字符串,用来调整显示位置,更清晰一点
'********************************************************************************
function getAll(rootF,str)
set fso = Server.CreateObject("scripting.filesystemobject")         '创建FSO对象
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>")'输出文件名
    next
next
if folder.name = rootF then     '如果是根文件夹,
 for each file in folder.files      '遍历根文件夹下的文件
     Response.Write( file.name & "<br>")'输出根文件夹下的文件
 next
end if
set folder = nothing
set fso     = nothing
end function

str="&nbsp;&nbsp;"                         '初始化为空
rootF = "CostCenterMIS"                '根文件夹为CostCenterMIS
Response.Write(rootF&"<br>")     '输出根文件夹
call getAll(rootF,str)                          '调用函数

%>