Option Explicit
Const QUELLORDNER = "C:\Test"
Const ZIELORDNER = "C:\Ziel\"
Const SUCHTEXT = "send to: abcd"
Dim FSO
 
Set FSO = CreateObject("Scripting.FileSystemObject")
SearchInFile FSO.GetFolder(QUELLORDNER)
 
Function SearchInFile(Ordner)
  Dim UnterOrdner, Datei, Inhalt
 
  For Each Datei in Ordner.Files
    Inhalt = FSO.OpenTextFile(Datei).ReadAll()
    If InStr(1, Inhalt, SUCHTEXT, 1) Then
      Datei.Copy(ZIELORDNER)
    End If
  Next
 
  For Each UnterOrdner In Ordner.SubFolders
    SearchInFile UnterOrdner
  Next
End Function