Write Text to a File : Text File Write « File Directory « VB.Net

1. VB.Net
2. File Directory
3. Text File Write

Write Text to a File

 

Imports System
Imports System.IO
Imports System.Text
Imports System.Collections.Generic

Class Program
    Public Shared Sub Main(ByVal args As String())
        Dim mydocpath As String = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)
        Dim sb As New StringBuilder()

        For Each txtName As String _
            In Directory.EnumerateFiles(mydocpath, "*.txt")
            Using sr As New StreamReader(txtName)
                sb.AppendLine(txtName.ToString())
                sb.Append(sr.ReadToEnd())
                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 line by line
7.	Write Text to a File and read back
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