vb如何将文本框保存到文件

'需要控件：command1,text1,text2
Option Explicit

Private Sub Command1_Click()
Dim sPath As String
'sPath = App.Path & "\" & Text2.Text & ".txt" '保存路径
sPath = "c:\" & Text2.Text & ".txt" '我怕你找不到，所以帮你保存到郑毁C：盘的，
Open sPath For Output As 1 '开始保存
Print #1, Text1.Text '保存成功 请去C：盘根目录查找你刚刚保存的文件，可以用喊指备记事本打开
Close 1

MsgBox "保存成功 请去C：盘根目录查找你刚刚保存的文件，可以用记事本打开", vbInformation

End Sub

Private Sub Form_Load()
Text1.Text = "我是一个中国逗虚人呀，一呀一呀哟!" '保存为文件的内容
Text2.Text = "123.txt" '保存文件的名字
Command1.Caption = "保存"
End Sub

vb将文本框的数据读取和保存到文本文件中，实际上就是vb对txt的读写操作。
相关代码如下：
1、vb读取txt文件内容，以下代码实现把电脑txt中的内容读取到程序文本框text1中。
private
sub
command1_click()
open
app.path
&
"\123.txt"
for
input
as
#1
'备注：app.path
&
"\123.txt"是程序目录下的123.txt
dim
lines
as
string
line
input
#1,
lines
'读取文本内容
close
#1
text1.text
=
lines
end
sub
2、vb写入丛滑txt内陆和容，实现文早郑盯本框的数据写入到文本文件中。
private
sub
command2_click()
dim
a
as
string
a
=
text1.text
'先读取出text1内容
open
app.path
&
"\123.txt"
for
output
as
#1
print
#1,
a
'把a的值写入123.txt
close
#1
end
sub

我觉得他察源们的答案太烦，你可败瞎态以这样做：在神芹你的任意一个控件中添加以下代码即可：Open "你的文件夹路径\Text3.text" For Output As #1
Write #1,abc.txt
Close #1

Private Sub Command1_Click()
Set FSO = CreateObject("Scripting.FileSystemObject")
a=text1.text
b=text2.text
c=a & "\镇盯春御耐则坦" & b
If FSO.FileExists(a) = False Then
MkDir a
End If
open c for output as #1
print #1,text1.text
close #1
end sub