quinta-feira, 4 de fevereiro de 2016

Ler um arquivo texto com VB.Net

Imports System.IO
 
Public Function LerArquivoLocal(ByVal Arquivo As String) As String
    Dim fluxoTexto As IO.StreamReader
    Dim linhaTexto As String
    Dim Conteudo As String = String.Empty
        If IO.File.Exists(Arquivo) Then
            fluxoTexto = New IO.StreamReader(Arquivo)
            linhaTexto = fluxoTexto.ReadLine
            While linhaTexto <> Nothing
                Conteudo &= linhaTexto & vbCrLf
                linhaTexto = fluxoTexto.ReadLine
            End While

            fluxoTexto.Close()
            Return Conteudo
        Else
            Return "Erro."
        End If
End Function

Nenhum comentário:

Postar um comentário