function bianli(sourcepath,str)
dim fso,objfolder,objsubfolders,objSubFolder
set fso=server.CreateObject(Const_ScriptFileSystem)
set objFolder=fso.GetFolder(server.mappath(sourcepath))
set objSubFolders=objFolder.Subfolders
for each objSubFolder in objSubFolders
if left(objSubFolder.name,sile)=str Then
response.write sourcepath&"/"&objSubFolder.name &"======================>"&objSubFolder.name &"
"
i=i+1
End If
Call bianli(sourcepath & "/" & objSubFolder.name ,str)'递归
next
set objFolder=nothing
set objSubFolders=nothing
set fso=nothing
end function
|