FSO Search

hvad er der galt her ?

Fejlen er her:
Microsoft VBScript runtime error '800a01a8'
Object required: ''
search-result.asp, line 9

Linie 9:
Set objFolder = objfso.GetFolder(Server.MapPath("/"))

Scriptet:
<%
Dim objFolder
Dim strSearchText
Dim objfso

strSearchText = Request.Form("SearchText")

Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objfso.GetFolder(Server.MapPath("/"))

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
%>