Buscar cadena en varios .txt [vb6]

[Titulatoe]

Si se puede, acá te dejo un pedacito de un programa básico que tenía que cambiar archivos fuentes ( lo mismo que un txt)

si necesita algún tipo de ayuda para comprenderlo avisa



Private Sub Command1_Click()

Dim strArchivo As String
Dim strDir As String
Dim Cadena As String

strDir = "C:\Documents and Settings\rcarolo\Escritorio\Copia de Sistema\"
strArchivo = Dir(strDir & "*.ctl", vbArchive)

While strArchivo <> ""


Cadena = Space(FileLen(strDir & strArchivo))
Open strDir & strArchivo For Binary Access Read As #1
Get #1, , Cadena
Close #1

Cadena = Replace(Cadena, "XpControls.XPOption", "VB.OptionButton")
Cadena = Replace(Cadena, "XpControls.xpButton", "VB.CommandButton")
Cadena = Replace(Cadena, "XpControls.XPText", "VB.TextBox")
Cadena = Replace(Cadena, "XpControls.XPFrame", "VB.Frame")
Cadena = Replace(Cadena, "XpControls.XPCheck", "VB.CheckBox")

Cadena = Replace(Cadena, "As XPOption", "As OptionButton")
Cadena = Replace(Cadena, "As xpButton", "As CommandButton")
Cadena = Replace(Cadena, "As XPText", "As TextBox")
Cadena = Replace(Cadena, "As XPFrame", "As Frame")
Cadena = Replace(Cadena, "As XPCheck", "As CheckBox")

Kill strDir & strArchivo
Open strDir & strArchivo For Binary Access Write As #1
Put #1, , Cadena
Close #1

strArchivo = Dir
'Call Replace(Cadena, "XpControls.XPNumbox", "XPNumbox")

Wend

MsgBox "Proceso Finalizado...", vbInformation
End Sub