ERROR: Referencia a objeto no establecida

[jamirandab]

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.

[Peterpay]

el problema es que al llegar al final del archivo sLine se vuelve NULL tendrias q agregar una validacion a tu if

algo como

IF sLine<>NOTHING && sLine.Contains......

[jamirandab]

mmm ok te pasaste algo tan simple te puede llegar a enloquecer.

Código:

If sLine <> Nothing Then
                    If sLine.Contains("<SPAN class='Area'>") Then
                        Dim cadena As Integer = (sLine.Length - 19 - 7)
                        Area += sLine.Substring(19, cadena) + " "
                    End If
End If