Buscar en varios archivos de texto vb 6.0

[Dessa]

Código [Seleccionar] Expandir




Sub BuscarPorFecha(sFecha As String)

Dim TeEquisTes As String
TeEquisTes = Dir(App.Path & "\Cuentas\")


Do While TeEquisTes <> ""
If InStr(1, LCase$(TeEquisTes), ".txt") > 0 Then
  If GetVar(App.Path & "\Cuentas\" & TeEquisTes, "Proximas Visitas", "Proximo Pago") = sFecha Then
      '''''   "Lo  que quieras"
  ElseIf GetVar(App.Path & "\Cuentas\" & TeEquisTes, "Proximas Visitas", "Proxima Visita") = sFecha Then
       ''''''  "Lo  que quieras"
  End If
End If
TeEquisTes = Dir
Loop


End Sub






PD: creo que con los datos que te dí lo puedes hacer.

[Bazzana]

EXCLENTE!!!

mE FUNCIONO DE 10!!!!

mUCHISIMAS GRACIAS!!!!