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