Create Text file and append string to it

 
Imports System
Imports System.IO

Public Class Test

    Public Shared Sub Main()
        Dim fi As FileInfo = New FileInfo("c:\temp\MyTest.txt")
        Dim sw As StreamWriter
        If fi.Exists = False Then
            sw = fi.CreateText()
            sw.WriteLine("Hello")
            sw.WriteLine("And")
            sw.WriteLine("Welcome")
            sw.Flush()
            sw.Close()
        End If
        Dim sr As StreamReader = fi.OpenText()
        Dim s As String
        Do While sr.Peek() >= 0
            s = sr.ReadLine()
            Console.WriteLine(s)
        Loop
        sr.Close()
    End Sub
End Class

Related examples in the same category

1.	Create Text File
2.	Append String to a Text file
3.	Text file Reader and Writer
4.	Reading and Writing to Files
5.	Write Text to a File
6.	Write Text to a File
7.	Write text line by line
8.	Write Text to a File and read back
9.	Open and Append to a Log File
10.	Write UTF8 encoded string to a file
11.	Convert byte from a file to UTF8
12.	Save character to a file
13.	Save string to a file

Create Text file and append string to it : Text File Write « File Directory « VB.Net

Related examples in the same category