[mrcnn]

Если массив текстбоков

Dim st As String
st=""
For i = 0 To aSz - 1
st = st & aTx(i).Text & " "
Next

В случае необходимости Cstr

а дальше супер стандартная запись
Dim fs As IO.FileStream, sr As IO.StreamReader
Dim FileName As String, sw As IO.StreamWriter
SaveFileDialog1.ShowDialog()
FileName = SaveFileDialog1.FileName
fs = IO.File.Open(FileName, IO.FileMode.OpenOrCreate)
sw = New IO.StreamWriter(fs)
sw.WriteLine(st)
sw.Close()
fs.Close()

В проект добавить нуно SaveFileDialog1

[Admiral]

Из соседней темы Visual Basic 2008 доступный другой способ

читать дальше »

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click FileOpen(1, "File.log", OpenMode.Append) 'Открываем для добавления. Если файла нет, то он создаётся PrintLine(1, TextBox1.Text) 'Добавляем строчки в лог файл PrintLine(1, TextBox2.Text) PrintLine(1, TextBox3.Text) PrintLine(1, "") 'Добавляем пустую строчку FileClose(1) 'Желательно после всех проделанных операций закрывать файл End Sub »