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