word = "Source"                 'искомое слово
papka = "c:\temp\"            'папка поиска
otchet = "D:\\test\\otchet.txt"        'файл отчета
i=0




Set objFSO = CreateObject("Scripting.FileSystemObject")
Set file2 = objFSO.OpenTextFile(otchet, 2, True) 


RecursiveFolderScan papka
file2.close

Msgbox "ВСЕ! Обработано "& i &" файлов"




Sub RecursiveFolderScan(FolderPath)
    'Получаем объектную модель текущего каталога
    Set Folder = objFSO.GetFolder(FolderPath)
 
    'Перебираем все файлы в текущем каталоге
    For Each File in Folder.Files
'+++++++++++++++++++++++++++++++++++++++++

Set file1 = objFSO.OpenTextFile(File, 1, False)

Do Until file1.AtEndOfStream
sw = file1.ReadLine()

If InStr(1, sw, word) = 0 Then    'копируем в др. файл все строки не равные этой
                
'file2.WriteLine(file.Name)         
file2.WriteLine(sw)     
                
            End If
        Loop
file1.close
 

objFSO.DeleteFile File, 1    'удаляем исход.файл
'objFSO.MoveFile otchet, File    'почему-то выдает ошибку  переимен-м отчет в исход.файл




i=i+1        'счетчик файлов
'++++++++++++++++++++++++++++++++++++++



    Next
 
    'Перебираем все подкаталоги в каталоге
    For Each SubFolder in Folder.SubFolders
        RecursiveFolderScan(SubFolder.Path)
    Next
End Sub

word = "Source:" 'искомое слово
papka = "c:\temp\" 'папка поиска

otchet = "otchet.txt" 'файл отчета - поместим его в каталог скрипта для простоты
i = 0 'счетчик файлов

Dim boolFound 'флаг - слово найдено

Set objFSO = CreateObject("Scripting.FileSystemObject")

'---не понял причем тут RegExp
'Set objRegExp = CreateObject("VBScript.RegExp")
'objRegExp.IgnoreCase = True

Set file2 = objFSO.OpenTextFile(otchet, 2, True)

RecursiveFolderScan papka

file2.close

Msgbox "ВСЕ! Обработано "& i &" файлов"



Sub RecursiveFolderScan(FolderPath)
    'Получаем объектную модель текущего каталога
    Set Folder = objFSO.GetFolder(FolderPath)
 
    'Перебираем все файлы в текущем каталоге
    For Each File in Folder.Files

		Set file1 = objFSO.OpenTextFile(File, 1, False) 'читаем файл
		boolFound = False

		Do Until file1.AtEndOfStream
			sw = file1.ReadLine() 'по-строчно
			If InStr(1, sw, word) <> 0 Then
				boolFound = True 'слово найдено
				file2.WriteLine(file.Name) 'пишем в отчет имя файла      
				file2.WriteLine(sw) 'пишем в отчет всю строку
				Exit Do 'выходим из цикла - скрипт пишет в отчет только строку с первым словом
			End If
        Loop
		file1.close 'закрываем файл

		'записать уникальный номер в конец исходной страницы
		If boolFound Then
			Set file1 = objFSO.OpenTextFile(File, 1, False) 'снова читаем тот же файл
			strText = file1.ReadAll 'читаем все содержимое в переменную			
			file1.close 'и опять закрываем
			'меняем все вхождения найденной строки на пробел - а надо наверное искомого слова - word
			strNewText = Replace(strText, sw, " ") 			
			
			'снова открываем тот же файл - на этот раз для записи - таким образом удаляя все содержимое файла
			Set file1 = objFSO.OpenTextFile(File, 2, False)
			file1.WriteLine strNewText 'пишем новое содержимое
			file1.close 'и закрываем в третий раз
		End If	

		i = i + 1 'счетчик файлов
    Next
 
    'Перебираем все подкаталоги в каталоге
    For Each SubFolder in Folder.SubFolders
        RecursiveFolderScan(SubFolder.Path)
    Next
End Sub

получить список файлов в переменную files

for each file in files
    create tempfile // создать временный файл и открыть на запись
    file.open // открыть файл на чтение
    while not EOF file
        line = file.ReadLine
        if line содержит заданную подстроку then
            выполнить какие-то действия (например, запись в лог-файл о нахождении заданной подстроки)
            пропустить, перейти к следующей строке
        end if
        tempfile.WriteLine line // сохранить строку во временном файле
    end while
    file.Close // закрыть файл
    tempfile.Close // закрыть временный файл
    rename tempfile file // переименовать временный файл в файл
end for

word = "Source:"                 'искомое слово
papka = "c:\temp\"            'папка поиска
otchet = "D:\\временное\\WSH\\test\\otchet.txt"        'файл отчета
i=0

Dim boolFound



Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objRegExp = CreateObject("VBScript.RegExp")
objRegExp.IgnoreCase = True
Set file2 = objFSO.OpenTextFile(otchet, 2, True)  '2 - Открыть файл для записи. Если файл уже существовал, его содержимое теряется. 8 - Открыть файл для добавления. Если файл уже существовал, информация будет дописываться в конец файла.Создавать файл, если он не существует (True), или нет (False). 


RecursiveFolderScan papka
file2.close

Msgbox "ВСЕ! Обработано "& i &" файлов"



Sub RecursiveFolderScan(FolderPath)
    'Получаем объектную модель текущего каталога
    Set Folder = objFSO.GetFolder(FolderPath)
 
    'Перебираем все файлы в текущем каталоге
    For Each File in Folder.Files

Set file1 = objFSO.OpenTextFile(File, 1, False)
boolFound = False

Do Until file1.AtEndOfStream
sw = file1.ReadLine()

If InStr(1, sw, word) <> 0 Then
                boolFound = True
file2.WriteLine(file.Name)         
file2.WriteLine(sw)     
                Exit Do
            End If
        Loop
file1.close
 

'записать уникальный номер в конец исходной страницы
    If boolFound Then
Set file1 = objFSO.OpenTextFile(File, 1, False)
strText = file1.ReadAll
file1.close
strNewText = Replace(strText, sw, " ")          
                                      
Set file1 = objFSO.OpenTextFile(File, 2, False)
file1.WriteLine strNewText
file1.close

    End If


i=i+1        'счетчик файлов




    Next
 
    'Перебираем все подкаталоги в каталоге
    For Each SubFolder in Folder.SubFolders
        RecursiveFolderScan(SubFolder.Path)
    Next
End Sub