asp能否读取目录名和文件名？在线等待！

 1   
 2function bianli(path)   
 3set fso=server.CreateObject("ｓcripting.filesystemobject")   
 4  
 5on error resume next   
 6set objFolder=fso.GetFolder(path)   
 7  
 8set objSubFolders=objFolder.Subfolders   
 9  
10for each objSubFolder in objSubFolders   
11  
12nowpath=path + "\" + objSubFolder.name   
13  
14Response.Write nowpath   
15  
16set objFiles=objSubFolder.Files   
17  
18for each objFile in objFiles   
19Response.Write "
20\---"   
21Response.Write objFile.name   
22next   
23Response.Write "

<p>"
bianli(nowpath)'递归

next
set objFolder=nothing
set objSubFolders=nothing
set fso=nothing
end function

bianli("d:") '遍历d:盘