<%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 &n