Dim i&, Dat1$, Txt$, OldTxt$, NewTxt$
 
  File1.Path = "D:\Programme\Projektordner"
  File1.Pattern = "*.frm;*.bas"
  OldTxt = "AlterText"
  NewTxt = "NeuerText"
  For i = 0 To File1.ListCount - 1
    Dat1 = File1.Path & "\" & File1.List(i)
    Open Dat1 For Binary Access Read As #1
      Txt = Space$(LOF(1))
      Get #1, , Txt
    Close #1
    If InStr(1, Txt, OldTxt, vbTextCompare) > 0 Then
      Txt = Replace(Txt, OldTxt, NewTxt)
      Kill Dat1
      Open Dat1 For Binary Access Write As #1
        Put #1, , Txt
      Close #1
    End If
    DoEvents
  Next i

Gruss,

Zardoz