Hola q tal a todos necesito de su ayuda estoy cargando archivos y abro cada uno de elllos y voy rrecoriendo las filas del contenido e ir comparanodolo con el valor de x donde x es el valor capturado en un textbox pero me marca un error el error me lo marca en la linea 11 el tipo de error es mencionado en el titulo este el codigo espero me puedan ayudar
Código vb:
Ver originalPublic 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
Gracias anticipadas
Saludos a todos