Verwenden Sie die OpenTextFile-Methode, um die Textdatei zu öffnen. Die OpenTextFile-Methode benötigt zwei Parameter: den Pfad zur Datei und einen der folgenden Werte:
Zum Lesen (Parameterwert = 1, Konstante = ForReading). Dateien, die in diesem Modus geöffnet sind, können nur gelesen werden. Um in die Datei zu schreiben, müssen Sie sie ein zweites Mal öffnen, indem Sie entweder den ForWriting- oder den ForAppending-Modus verwenden.
Zum Schreiben (Parameterwert 2, Konstante = ForWriting). Dateien, die in diesem Modus geöffnet werden, ersetzen neue Daten durch vorhandene Daten. (Das heißt, vorhandene Daten werden gelöscht und die neuen Daten hinzugefügt.) Verwenden Sie diese Methode, um eine vorhandene Datei durch eine neue Datengruppe zu ersetzen.
Zum Anhängen (Parameterwert 8, Konstante = ForAppending). Dateien, die in diesem Modus geöffnet werden, werden am Ende der Datei mit neuen Daten versehen. Verwenden Sie diese Methode, um Daten zu einer vorhandenen Datei hinzuzufügen.
Grundsätzlich, wenn Sie eine Datei öffnen, müssen Sie es schließen und dann wieder zum Schreiben öffnen, wenn Sie darauf schreiben wollen.
http://technet.microsoft.com/en-us/library/ee198716.aspx
Da Sie VB.NET verwenden Sie sollten stattdessen mit System.IO sein.
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.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
http://msdn.microsoft.com/en-us/library/6ka1wd3w.aspx