Global d$ = "pfad der durchsucht werden soll"
Global t$ = "pfad, in dem gefundene dateien gespeichert werden sollen"
Global s$ = "text, der gesucht werden soll"
Global ext$ = "dateiendung, die gesucht werden soll (mit dem punkt davor, also z.b. .txt)"

searchdir(d$)
End

Function searchdir(dirpath$)
   If Right(dirpath$, 1)<>"\" Then dirpath$=dirpath$+"\"
   Print dirpath$
   dir = ReadDir(dirpath$)
   nf$ = NextFile(dir)
   If Right(dirpath$,4)=".42\" And dirpath$<>d$ Then Return
   While Not nf$=""
      If nf$<>"." And nf$<>".." Then
         If FileType(dirpath$+nf$)=1 Then
            If Right(nf$, Len(ext$))=ext$ Then
               in = OpenFile(dirpath$+nf$)
               While Not Eof(in)
                  If Instr(ReadLine(in), s$) Then
                     CloseFile in
                     Print nf$
                     CopyFile(dirpath$+nf$, t$+nf$)
                     Goto ot
                  EndIf
               Wend
               CloseFile in
            EndIf
            .ot
         ElseIf FileType(dirpath$+nf$)=2 Then
            searchdir(dirpath$+nf$)
         EndIf
      EndIf
      nf$ = NextFile(dir)
   Wend
   CloseDir dir
End Function