ansaurus

Question

Need help with not displaying folders that do not contain anything

Answer 1

+1 A:

Try something like this. It only displays the folder if the sub-folder or sub-file count is greater than zero:

Updated:

<h1>Course Outlines</h1>
<% ListFolderContents Server.MapPath("/intranets/fs/course_outlines/documents"), 0 %>
<% 
sub ListFolderContents(path, level)
    dim fs, folder, file, item, url, subFiles, subFolders
    set fs = CreateObject("Scripting.FileSystemObject")
    set folder = fs.GetFolder(path)

    if folder.SubFolders.Count > 0 or folder.Files.Count > 0 then
        'Display the target folder and info.
        if level > 0 then
            Response.Write("<h2>"& folder.Name &"</h2>" & vbCrLf)
        end if

        'Display a list of sub folders.
        for each item in folder.SubFolders
            ListFolderContents item.Path, level + 1
        next

        'Display a list of files.
        Response.Write("<ul>" & vbCrLf)
        for each item in folder.Files
            url = MapURL(item.path)
            Response.Write("<li><a href=""" & url & """>" & item.Name & "</a></li>" & vbCrLf)
        next
        Response.Write("</ul>" & vbCrLf)
    end if             
end sub


function MapURL(path)
    dim rootPath, url
    'Convert a physical file path to a URL for hypertext links.
    rootPath = Server.MapPath("/")
    url = Right(path, Len(path) - Len(rootPath))
    MapURL = Replace(url, "\", "/")
    end function 
%>

RedFilter 2010-01-29 17:00:31

I replaced what you had in for the sub part, I had to add Then after the conditional. It still displayed documents, since that has folders and files in it. That is where the script lives in (/intranets/fs/course_outlines), and I only want the script to scan starting at /intranets/fs/course_outlines/documentshere is a screen shot of the documents folder that contains all the sub folders that I want the script to only display: http://grab.by/23IA

Brad 2010-01-29 17:30:19

added a `level` parameter so it can skip the top level (0)

RedFilter 2010-01-29 19:07:10

unsuccessful, it gave me this error: http://grab.by/23S1

Brad 2010-01-29 19:17:16

That's pretty self-explanatory - sorry I don't do much VB and this is one of the quirks, that it will accept a single parameter in brackets but not multiple. Try modified version.

RedFilter 2010-01-29 19:45:22

ansaurus

tags:

views:

answers:

Need help with not displaying folders that do not contain anything

documents

related questions