如何用asp读取某个目录下的文件名,并存一个数组里面???

[一杯咖啡]

我近来开通了一个FTP给网友传漫画,
他们是把漫画存到一个个文件夹内,怎么用asp把文件夹内文件名存到数组里?

[RexZheng]

遍历目录以及目录下文件的函数

<%
function bianli(path)
set fso=server.CreateObject("scripting.filesystemobject")
on error resume next
set objFolder=fso.GetFolder(path)
set objSubFolders=objFolder.Subfolders
for each objSubFolder in objSubFolders
nowpath=path + "\" + objSubFolder.name
Response.Write nowpath
set objFiles=objSubFolder.Files
for each objFile in objFiles
Response.Write "---"
Response.Write objFile.name
next
Response.Write "<p>"
bianli(nowpath)'递归
next
set objFolder=nothing
set objSubFolders=nothing
set fso=nothing
end function
bianli("D:") '遍历d:盘
%>