Código vb:
Gracias anticipadas Ver original
Public Sub cargaArchivo()
x = TextBox1.Text
archivos = Directory.GetFiles("c:/xampp", "*.html", SearchOption.AllDirectories)
For i = 0 To archivos.Length - 1
Dim leer As New StreamReader(archivos(i))
Dim text As String = ""
Dim split As String() = Nothing
'Dim silaba As String()
While (Not text Is Nothing)
text = leer.ReadLine()
split = text.Split(New Char() {"\n"}, 10)
'silaba = split(i).Split(New Char() {"<"})
If (split(i).IndexOf(x) > 0) Then
ListBox1.Items.Add(archivos(i))
End If
End While
Next
End Sub
Saludos a todos
 
 



