Exclude vti_cnf folders

I am using the following code to select a random folder from the images folder. I want to exclude the "_vti_cnf" folders that FrontPage generates. For some reason this code still returns the "_vti_cnf" folders sometimes. Any idea why?

<%
Function GetRandomFolder()

Const cHideFoldersPattern="_vti_cnf"

'This is a relative path to your image gallery root
Const ImagesRoot = "images"

' Get List of Subfolders under ImagesRoot
Set fsoFolder = CreateObject("Scripting.FileSystemObject")


            Set FolderRoot = fsoFolder.GetFolder(Server.MapPath(ImagesRoot))

            Set FolderSubs = FolderRoot.subfolders

'**************************************
' Get a Random Folder Number from List            

randomize
RndFolderNum = Int(FolderSubs.count * Rnd)

' Associate Folder name based on Random Number Results
For Each objFolder in FolderSubs


      If intFileLooper = RndFolderNum Then
            ' Get a "handle" on the appropriate file
            Set objFolderToUse = objFolder

            Exit For
      End If

      intFileLooper = intFileLooper + 1
Next

'**************************************
'Clean up Above Variables
Set fsoFolder = Nothing
Set FolderRoot = Nothing
Set FolderSubs = Nothing
Set RndFolderNum = Nothing

'**************************************
if instr(1,objFolderToUse.name ,cHideFoldersPattern,1)= 0 then GetRandomFolder



' Build Path to Random Folder
GetRandomFolder = (ImagesRoot & "/" & objFolderToUse.name & "/")

End Function

'Call GetRandomFolder

Response.write GetRandomFolder
%>

Start Free Trial