Export (0) Print
Expand All

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.

NoteNote:

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

Date

History

Reason

January 2010

Improved example.

Customer feedback.

Community Additions

ADD
Show:
© 2014 Microsoft