IMPORTAR OUTRA DUVIDA AI

SANCHESPS 09/11/2012 16:03:39
#413944

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim AbrirComo As OpenFileDialog = New OpenFileDialog()
Dim caminho As DialogResult
Dim fluxoTexto As IO.StreamReader
Dim Arquivo As String

AbrirComo.Title = [Ô]Abrir como[Ô]
AbrirComo.FileName = [Ô]Nome Arquivo[Ô]
AbrirComo.Filter = [Ô]Arquivos Textos (*.txt)|*.txt[Ô]
caminho = AbrirComo.ShowDialog
Arquivo = AbrirComo.FileName

If Arquivo = Nothing Then
MessageBox.Show([Ô]Arquivo Invalido[Ô], [Ô]Salvar Como[Ô], MessageBoxButtons.OK)
Else
fluxoTexto = New IO.StreamReader(Arquivo)
TextBox1.Linhas.Text = fluxoTexto.ReadToEnd
TextBox1.arquivo.Text = AbrirComo.FileName
fluxoTexto.Close()
End If

End Sub
End Class