Anexar a un archivo de texto Curso de Programación Visual Basic

Lección:

Administración de Archivos


Ejercicio:

Anexar a un archivo de texto 4


Objetivo:

Crea un programa para pedir al usuario varias frases (hasta que solo pulse Intro) y guárdalas en un archivo de texto denominado "oraciones.txt". Si el archivo existe, el nuevo contenido debe adjuntarse a su final.


Código:

Imports System
Imports System.IO
Class Sentences
    Private Shared Sub Main(ByVal args As String())
        Dim myFile As StreamWriter = File.AppendText("file.txt")
        Dim line As String

        Do
            Console.Write("Enter a sentence: ")
            line = Console.ReadLine()
            If line <> "" Then myFile.WriteLine(line)
        Loop While line <> ""

        myFile.Close()
    End Sub
End Class