asp用fso怎么弄寻求搜索某个文件夹下所有文件，包括子文件夹下的文件

<%
sub lstfile(pth)
set fso = server.createobject("scripting.filesystemobject")
set fld = fso.getfolder(pth)
for each f in fld.files
    response.write f.path 
next
for each f in fld.subfolders
    lstfile f.path
next
set fso=nothing
end sub

lstfile "E:\新歌TOP50"    
%>