Создание файла? (txt)

[Человек]

У меня есть 2 TextBox'a.
Как создать txt файл, что бы первый TextBox содержал имя файла (1.txt) А второй TextBox текст (содержание) файла.

-------------------------------------------------------------------------------------
Зарание спасибо.

[Cornplay]

Если TextBox1 - имя файла, а TextBox2 - текст, то:

open TextBox1.text for output as #1
print #1, TextBox2.text
close #1

Все слишком просто (или я чего-то недопонял).

[Sanya Z]

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

open TextBox1.text for output as #1
print #1, TextBox2.text
close #1

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

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

text1.text=app.path+"\"+text1.text
open TextBox1.text for output as #1
print #1, TextBox2.text
close #1

...К примеру

[ser_hit]

Классный код

[Enigmus]

Этот пример децл по-сложнее.
В меню "Progect" найди "Referensis" и подключи "Microsoft Scripting Runtime".
В форму добавь Command1. В процедуре "Command1_Click()" добавь код:
Dim oFile As Scripting.FileSystemObject
Dim oFile1 As Scripting.TextStream
Set oFile = New Scripting.FileSystemObject
Set oFile1 = oFile.CreateTextFile(Text1.Text & "\Config.cfg", True)oFile1.WriteLine (Text2.Text)
oFile1.Close
Желаю удачи

[Человек]

Всем спасибо....

[Draco]

Можно обратиться к математике...
P.S.:
Если заинтерисуешся...