vê se ajuda <% Const fsoForReading = 1 Dim strSearchText strSearchText = Request("SearchText") Dim objFSO Set objFSO = Server.CreateObject("Scripting.FileSystemObject") strFilesTypesToSearch = "doc,xls,dot,htm,html" Dim objFolder Set objFolder = objFSO.GetFolder(Server.MapPath("./busca")) Dim objFile, objTextStream, strFileContents, bolFileFound bolFileFound = False For Each objFile in objFolder.Files If Response.IsClientConnected then Set objTextStream = objFSO.OpenTextFile(objFile.Path,fsoForReading) strFileContents = objTextStream.ReadAll If InStr(1,strFileContents,strSearchText,1) then Response.Write "<LI><a href="& objFile.Name &">" & objFile.Name & "<BR></a>" bolFileFound = True End If objTextStream.Close End If Next if Not bolFileFound then Response.Write "Nenhuma palavra encontrada..." Set objTextStream = Nothing Set objFolder = Nothing Set objFSO = Nothing %>