FSO Har dir subfolders

den her checker for subfolders

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
        Set objFolder = objFSO.GetFolder(Server.MapPath("Files/"))
            Set sf = objFolder.SubFolders
                For Each subfolder in sf
                    For Each objFile in subfolder.Files
                        %>
                        <tr>
                            <td>
                                <%= objFile.Name %>
                            </td>
                        </tr>
                        <%
                    next
                Next
            Set sf = Nothing
        Set objFolder = Nothing
    Set objFSO = Nothing

og skriver navnet på de filer der er i mapperne

for each BrowsedFolder in BrowseContents.SubFolders
    if BrowsedFolder.Name <> "_vti_cnf" then
       
%>   
    <TABLE WIDTH="100%" BORDER="0"><TR>
    <TD WIDTH="*"><A HREF="?dir=<%=CurrentDir%>/<%=BrowsedFolder.Name%>"> <IMG SRC="browser_images/foldericon.gif" border="0"></a></TD><TD WIDTH="70%"><A HREF="main_browser.asp?dir=<%=CurrentDir%>/<%=BrowsedFolder.Name%>" target="MainFrame"><%=BrowsedFolder.Name%></A>
    </TD><TD WIDTH="25%"><DIV ALIGN="RIGHT">
    <%=BrowsedFolder.Size \ 1024%>
    </DIV></TD></TR></TABLE>
    <%
    ContainsSomething = "True"   
    end if
    next
%>   

jeg ville så gerne finde ud af om der i den liste er nogen af mapperne der har subfolders

cesil >> jeg skal ikke bruge filnavnene til noget jeg skal kun finde ud af om en folder har subfolder

hmm, måske du kan gøre således.

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
        Set objFolder = objFSO.GetFolder(Server.MapPath("Files/"))
            Set sf = objFolder.SubFolders
                if sf.eof=false then
               
        end if
            Set sf = Nothing
        Set objFolder = Nothing
    Set objFSO = Nothing

Man kan ikke bruge sf.eof

for each BFolder in BrowsedFolder.SubFolders
   
    If Len(BFolder) <> "" then
    HarSub = "False"
  End If