Try
        Dim files() As String = IO.Directory.GetFiles("c:Data")
        Dim data As String = String.Empty
        For Each datafile As String In files
            Dim objTemp As Object
            Using stream As FileStream = File.OpenRead(datafile)
                objTemp = formatter.Deserialize(stream)
                Dim match As MyPerson = TryCast(Afis.Identify(probe, objTemp).FirstOrDefault(), MyPerson)
                If match Is Nothing Then
                    Continue For
                Else
                    Response.Write("Name:- " & match.Name)
                    Exit For
                End If
            End Using
        Next
    Catch ex As Exception
    End Try