Windows apps
Collapse the table of content
Expand the table of content
Information
The topic you requested is included in another documentation set. For convenience, it's displayed below. Choose Switch to see the topic in its original location.

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

Show:
© 2016 Microsoft