Lave et fso søge system

her er det script jeg har lavet, men det virker kun hvis der ikke er nogen subfolder, selv om den skulle virke med subfolder.


<%
Dim objFolder

Dim strSearchText

Dim objFSO



strSearchText = Request.Form("sog")



' create the FSO and Folder objects

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

Set objFolder = objFSO.GetFolder(Server.MapPath("/mediebank/images/demo/"))



Search objFolder


Function Search(objFolder)

  'Dim objSubFolder



  For Each objFile in objFolder.Files

    Set objTextStream = objFSO.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




  For Each objSubFolder in objFolder.SubFolders

    Search objSubFolder

  Next

End Function

%>

luk