Question

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

如何将文本框3的文字保存到程序所在目录下以文本框1为名的文件夹和以文本框2为名的文件.
晕!!! 我想表达的虽然绕口,但是应该是表达清楚了,但是你们却.........

ok,这样,
把文本框3里面的文字"今夜你会不会来?"
保存到程序所在目录下面的以文本框1为名的文件夹下面,并且以文本框2里面的文本命名.
文本框1.txt= 资料
文本框2.txt= abc
也就是这样,保存到这里.
app.path\资料\abc.txt

Answer 1

'需要控件：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

Answer 2

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

Answer 3

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

Answer 4

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