Private Sub Command1_Click()
  Dim sFile As String
  Dim sPath As String
  Dim sBuffer As String
  Dim sLookFor As String
  Dim sReplaceWith As String
 
  ' Nach dieser Zeichenkette soll gesucht werden
  sLookFor = "Object = ""{2B7D38A0-4385-47BE-9345-29F96556FB3D}#1.0#0"";" & _
    """cmll17fx.ocx"""
 
  ' Und das soll die neue Zeichenkette sein
  sReplaceWith = "..."
 
  ' Hier den Pfad zu dem Verzeichnis angeben, in
  ' dem sich die FRM-Dateien des Projekts befinden
  sPath = "D:\temp\"
 
  sFile = Dir$(sPath & "*.frm")
  Do While Len(sFile) > 0
    ' Prüfen, ob in der Datei die gesuchte Zeichenkette vorhanden ist
    sBuffer = ReadFile(sFile)
    If InStr(1, sFile, sLookFor, vbTextCompare) > 0 Then
      ' Zeichenkette ersetzen
      sBuffer = Replace(sBuffer, sLookFor, sReplaceWith, , , vbTextCompare)
      WriteFile sFile, sBuffer
    End If
 
    sFile = Dir$
  Loop
End Sub
 
Private Function ReadFile(ByVal sFile As String) As String
  Dim F As Integer
  Dim sBuffer As String
 
  F = FreeFile
  Open sFile For Binary As #F
  sBuffer = Space$(LOF(F))
  Get #F, , sBuffer
  Close #F
End Function
 
Private Sub WriteFile(ByVal sFile As String, ByVal sBuffer As String)
  Dim F As Integer
 
  F = FreeFile
  Open sFile For Output As #F
  Print #F, sBuffer;
  Close #F
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de