Como hacer una busqueda en vb6?

[erbuson]

Hola, esto es una posible solución:

Crea un formulario con un Text1 y un Command1 y pegas el siguiente código

Código vb:

Private Sub Command1_Click()
  Dim Archivo As String, Carpeta As String, Registro As String
  Carpeta = "C:\"
  Archivo = Dir(Carpeta & "*.txt")
  Do While Archivo <> ""
    Open Carpeta & Archivo For Input As #1
    Do While Not EOF(1)
      Line Input #1, Registro
      If InStr(UCase(Registro), UCase(Text1.Text)) Then
        MsgBox Carpeta & Archivo
        Exit Do
      End If
    Loop
    Close #1
    Archivo = Dir
  Loop
End Sub
 

Evidentemente debes cambiar la Carpeta de búsqueda según tus conveniencias.

Lo único que hace es leer todos los .txt de donde le indiques y mostrarte el nombre del archivo que contiene el texto buscado.

Saludos