How to: Write Text to a File
Updated: January 2010
The following code example shows how to write text to a text file.
It reads all the text flies, using a "*.txt" search pattern, from the user's documents folder and writes them into a large text file.
Visual Basic users may choose to use the methods and properties provided by the My.Computer.FileSystem object for file I/O. For more information, see My.Computer.FileSystem Object.
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