Asp遍历磁盘目录，查找所有文件夹

<%
function seekFolders1(path)
set fso=server.CreateObject("scripting.filesystemobject")    
      set objFolder=fso.GetFolder(path)
   set objSubFolders=objFolder.Subfolders
    'response.Write(nowpath&"---------")
    for each item_f in objSubFolders
     nowpath=path+ "\" + item_f.name
     response.Write(item_f&"<br>")
    seekFolders(nowpath)
    next   
   set objFolder=nothing
set fso=nothing
End function
%>