<%
dim fso
set fso=server.CreateObject("scripting.filesystemobject")
listfolders("d:/音乐")
function listfolders(rootfolder)
 set folder=fso.GetFolder(rootfolder)
 Response.Write "<hr><font color=red>"&folder.name &"</font>"& "<br><hr>"
 set cfiles=folder.files
 for each file in cfiles
  Response.Write file.name&"&nbsp;"
 next
 set cfolders=folder.subfolders
 for each ofolder in cfolders 
  listfolders(ofolder) 
 next
end function
%>