FSO Function skal ikke vise alt

Mit script

<%   
Dim sPath, ot, oFSO, sFolderName, i
   
    ' Get Folder Path and Folder Name
    sPath = Server.MapPath("files")
    Do Until Right(sPath, 1) = "\"
        sPath = left(sPath, Len(sPath) - 1)
    Loop
    i = Len(sPath) - 1
    Do Until Mid(sPath, i, 1) = "\"
        sFolderName = Mid(sPath, i, Len(sPath) - i)
        i = i - 1
    Loop
   
    Set oFSO = CreateObject("Scripting.FileSystemObject")
    Set ot = Server.CreateObject("obout_asptreeview_pro.tree")
   
    ' Populate first node manually.
    ot.Add "", "root", "<b style='color:navy;'>" & sFolderName & "</b>", True, "book.gif"
   
    Call AddFolder(sPath, "../" & sFolderName, "root")

    ot.SelectedNode_Border = "1px solid #ccddee"
    Response.Write ot.HTML ' Write treeview to page.
    Set ot = Nothing
    Set oFSO = Nothing
   
Function AddFolder(pth, dpt, parentID)
    Dim oF, oFolder, oFile, oSubFolder, oItem, sName
    Set oFolder = oFSO.GetFolder(pth)
    Set oSubFolder = oFolder.SubFolders
   
    For Each oItem In oSubFolder ' Display Subfolders.
   
                    ot.Add parentID, "z" & oItem.Name, oItem.Name
                    Call AddFolder(oItem.Path, dpt & "/" & oItem.Name, "z" & Replace(oItem.Name, " ", "_"))
                   
                Next
           
   
End Function
%>

Scriptet lister alle folder og subfolder og viser dem og det virker som det skal.

Men der er nogen folder jeg ikke vil have skal vises, jeg har prøvet med instr og alt muligt men det virker ikke.
Hvordan er det lige man skal gøre ??