How do I search content faster than fso?

See more:

ASP

I'm currently using fso (FileSystemObject) to search multiple strings of content of PDF's. It works fine when reading less than 1,000. But when searching over 5,000 it slows down to 5-10 minutes on a search. Any ideas or help is greatly appreciated. This is the code I'm using:

<% Server.ScriptTimeout = 100000000 %>
<%
'Search Text
Dim strtextToSearch
strtextToSearch = Request("TextToSearch")

'Now, we want to search all of the files
Dim fso

'Constant to read
Const ForReading = 1
Set fso = Server.CreateObject("Scripting.FileSystemObject")

'Specify the folder path to search.
Dim FolderToSearch
FolderToSearch = "C:\inetpub\mysite\Files\allpdfs\"

'Proceed if folder exists
if fso.FolderExists(FolderToSearch) then

Dim objFolder
Set objFolder = fso.GetFolder(FolderToSearch)

Dim objFile, objTextStream, strFileContents, bolFileFound
bolFileFound = False

Dim FilesCounter
FilesCounter = 0 'Total files found

For Each objFile in objFolder.Files
Set objTextStream = fso.OpenTextFile(objFile.Path,ForReading)
'Read the content
strFileContents = objTextStream.ReadAll
If InStr(1,strFileContents,strtextToSearch,1) then
%>

<%
Response.Write objFile.Name & "
"
FilesCounter = FilesCounter + 1
End If
objTextStream.Close
Next

if FilesCounter = 0 then
Response.Write "Sorry, No matches found."
else
Response.Write "Total files found : " & FilesCounter
end if

'Destroy the objects
Set objTextStream = Nothing
Set objFolder = Nothing

else
Response.Write "Sorry, invalid folder name"
end if
Set fso = Nothing
%>