none
Como carregar um arquivo? RRS feed

 > 

  • Pergunta

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Olá amigos do MSDN, a rotina abaixo cria e grava um arquivo texto, alguém pode me dar uma força como seria uma rotina para carregar o arquivo?

    Imports System.IO
    Imports System.IO.File

    Public Class Form1

        Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click

            Dim W As IO.StreamWriter

            My.Computer.FileSystem.CreateDirectory("C:\Usuario\Home10")

            W = New IO.StreamWriter("C:\Usuario\Home10\arquivoAprendendo.txt")

            W.WriteLine(TextBox1.Text)

            W.WriteLine(TextBox2.Text)

            W.Close()

        End Sub

    End Class

    domingo, 24 de junho de 2018 02:30
    |

Respostas

  • Question
    Entrar para Votar
    2
    Entrar para Votar

    Tente assim:

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        TextBox1.Text = "Isto é "
        TextBox2.Text = "um teste!"

        Dim W As IO.StreamWriter

        My.Computer.FileSystem.CreateDirectory("C:\Users\Mariano\Desktop\teste")

        W = New IO.StreamWriter("C:\Users\Mariano\Desktop\teste\Novo Documento de Texto.txt")

        W.WriteLine(TextBox1.Text)

        W.WriteLine(TextBox2.Text)

        W.Close()

        Dim R As IO.StreamReader
        R = New IO.StreamReader("C:\Users\Mariano\Desktop\teste\Novo Documento de Texto.txt")

        TextBox3.Text = R.ReadLine
        TextBox4.Text = R.ReadLine

        'ou assim

        TextBox3.Text = R.ReadToEnd()

        R.Close()

       
    End Sub

    MARIANO1776

    domingo, 24 de junho de 2018 16:51
    |