ASP,FSO traversal directory and directory files _fso topics

<%@ Language=vbscript%>
<%
' I wrote a function that traverses the directory and the files in the directory,
%>
<%
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 "<br>---"
Response.Write Objfile.name
Next
Response.Write "<p>"
Bianli (Nowpath) ' Recursive
　　　　　　
Next
Set objfolder=nothing
Set objsubfolders=nothing
Set fso=nothing
End Function
%>
<%
Bianli ("D:") ' Traverse D: Disk
%>