как создать текстовый файл?

[ala-x]

Подскажите пожалуйста код создания текстового файла, и запись в нём текста с каждого текст бокса в новую строку.

[iGrok]

Ключевые слова:
Open For Output
Print

Остальное можно найти в гугле.

[awl100Alex]

Код: Выделить всё

Dim FreeNum

Private Sub Command4_Click()
FreeNum = FreeFile ' Получаем свободный файловый номер (рекомендуется!)
Open App.Path & "\TESTFILE.TXT" For Output As FreeNum ' Создаем...
End Sub

Private Sub Command1_Click()
  Print #FreeNum, Text1.Text ' Запись 1
End Sub

Private Sub Command2_Click()
  Print #FreeNum, Text2.Text ' Запись 2
End Sub

Private Sub Command3_Click()
  Print #FreeNum, Text3.Text ' Запись 3
End Sub

Private Sub Command5_Click()
Close FreeNum ' Закрываем файл
End Sub