Используйте метод OpenTextFile, чтобы открыть текстовый файл. Метод OpenTextFile требует двух параметров: путь к файлу и одно из следующих значений:
Для чтения (значение параметра = 1, константа = ForReading). Файлы, открытые в этом режиме, могут быть прочитаны только из. Для записи в файл вы должны открыть его второй раз, используя режим ForWriting или ForAppending.
Для записи (значение параметра 2, константа = ForWriting). Файлы, открытые в этом режиме, будут иметь новые данные, заменяющие любые существующие данные. (То есть существующие данные будут удалены, а новые данные добавлены.) Используйте этот метод для замены существующего файла новым набором данных.
Для добавления (значение параметра 8, константа = ForAppending). Файлы, открытые в этом режиме, будут иметь новые данные, добавленные в конец файла. Используйте этот метод для добавления данных в существующий файл.
Обычно, если вы открываете файл, вы должны закрыть его, а затем снова открыть для записи, если хотите записать в него.
http://technet.microsoft.com/en-us/library/ee198716.aspx
Поскольку вы используете VB.NET, вы должны использовать System.IO.
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