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

来源：百度知道 编辑：UC知道 时间：2024/06/23 01:18:21
如何将文本框3的文字保存到程序所在目录下以文本框1为名的文件夹和以文本框2为名的文件.
晕!!! 我想表达的虽然绕口,但是应该是表达清楚了,但是你们却.........

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

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

Private Sub Command1_Click()
Set FSO = CreateObject("Scripting.FileSystemObject")
a=text1.text
b=text2.text<