Scripting.FileSystemObject

når jeg kører det her sker der ikke en pind, scriptet timer bare ud selv om der kun er en folder med 2 sub folder.


<%

Set objSFSO = Server.CreateObject("Scripting.FileSystemObject")



sub displayFolders(objFolder, bolRecurseDirectories, level)
                 
If Not Left(objFolder.Name,1) = "_" then
  'Recurse through the folder's subdirectories if needed
  If bolRecurseDirectories then
    For Each objSubFolder in objFolder.SubFolders
     
      dir1= replace(objFolder,rodbillede,"")
      dir2= replace(dir1,"\","/")
      FolderName = dir2 &"/"& objSubFolder.Name
      FolderName2 = objSubFolder.Name
         
      response.write FolderName2 &"<br>"
     
      'Her kommer den ikke videre START
     
      strSearchText = "a"
         
          For Each objFile in objFolder.Files
         
          Set objTextStream = objSFSO.OpenTextFile(objFile.Path,1)
         
          strFileContents = objTextStream.ReadAll

    If InStr(1, strFileContents, strSearchText, 1) then

      Response.Write "<A HREF=""/" & objFile.Name & _

          """>" & objFile.Name & "</A><BR>"

      bolFileFound = True

    End If

    objTextStream.Close
    Next
   
'Her kommer den ikke videre SLUT
     
      displayFolders objSubFolder, bolRecurseDirectories, level+1
    Next
    End If
set rs = nothing
End If
end sub

'Get the physical path of the root folder


strRootFolder = Server.MapPath("./demo/")
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strRootFolder)

displayFolders objFolder, true, 0
%>