Write Text to a File and read back

 

Imports System
Imports System.IO
Imports System.Text

Class Program
    Public Shared Sub Main(ByVal args As String())
        Dim mydocpath As String = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)
        Dim txtList As String() = Directory.GetFiles(mydocpath, "*.txt")
        Dim sb As New StringBuilder()

        For Each txtName As String In txtList
            Using sr As New StreamReader(txtName)
                sb.AppendLine(txtName.ToString())
                sb.AppendLine("= = = = = =")
                sb.Append(sr.ReadToEnd())
                sb.AppendLine()
                sb.AppendLine()

            End Using
        Next

        Using outfile As New StreamWriter(mydocpath & "\AllTxtFiles.txt")
            outfile.Write(sb.ToString())
        End Using
    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.	Open and Append to a Log File
9.	Write UTF8 encoded string to a file
10.	Create Text file and append string to it
11.	Convert byte from a file to UTF8
12.	Save character to a file
13.	Save string to a file

Write Text to a File and read back : Text File Write « File Directory « VB.Net

Related examples in the same category