hola saludos a todos...
Estoy un poco complicado y llebo un par de días tratando de resolver este problema que debe ser una estupidad, jajaja pero pucha que he calentado la silla con esto...
el error es en la sig. linea 14: Referencia a objeto no establecida como instancia de un objeto.
Código:
Private Sub btnBuscar_Click1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBuscar.Click
lbxArchivos.Items.Clear()
Try
Dim Archivos As System.Collections.ObjectModel.ReadOnlyCollection(Of String)
Archivos = My.Computer.FileSystem.GetFiles(txtDirectorio.Text)
For Each RutaArchivo As String In Archivos
Dim objReader As New StreamReader(RutaArchivo)
Dim sLine As String = ""
Dim i As Integer = 0
Dim Area As String
Do While Not sLine Is Nothing
i += 1
sLine = objReader.ReadLine
If sLine.Contains("<SPAN class='Area'>") Then 'error >>>>> Referencia a objeto no establecida como instancia de un objeto.
Dim cadena As Integer = (sLine.Length - 19 - 7)
Area += sLine.Substring(19, cadena) + " "
End If
Loop
Label4.Text = Area
Label5.Text = RutaArchivo
Next
End Sub
pucha si me pudieran ayudar...
se les agradece.