Search all documents for a string?

See more:

VBScript

Hi all,

I'm trying to use the following script to search all types of documents not just txt. Specifically word and excel. Is this an easy fix?

dim filesys
set filesys=CreateObject("Scripting.FileSystemObject")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Dim objShell
set objShell = CreateObject("WScript.Shell")

x=msgbox("Word Search Started",0,"Word Check")

strSearchFor = "word"
Set oFSO = CreateObject("Scripting.FileSystemObject")
objStartFolder = "C:\Test1\"
 
Set objFolder = objFSO.GetFolder(objStartFolder)
 
Set colFiles = objFolder.Files
For Each objFile in colFiles
    strFile = "C:\Test1\" & objFile.Name
    set objFile = objFSO.getFile(strFile)
    if objFile.size > 0 then
        If InStr(oFSO.OpenTextFile(strFile).ReadAll, strSearchFor) > 0 Then
	    x=msgbox("Word Found!",16,"Word Check")
        Else
	    x=msgbox("No Word Found",0,"Word Check")
            WScript.Sleep (100)
        END If
    END If
Next