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