保存text文件

[wushimang]

请问如何保存textbox中的文件，在线等待

[yesjoy]

用对话框控件啊
看看其中的参数设置
可以打开、保存等等
要加入部件

[csdngoodnight]

楼上速度果然快。

[pooryaya]

用VB程序向导里面做一个
看它的源代码就知道了!~

[zihan]

f=freefile
Open FileName For Output As #f
Print #f, Text1.Text
Close #f
这是保存文件到FileName这个文件名里面去

[rainstormmaster]

用对话框控件只能得到打开或保存的文件名称，不会帮助你打开或保存文件，打开或保存文件需要我们自己写代码实现
'保存Text1.Text到d:\temp.txt
Private Sub Command2_Click()
Open "d:\temp.txt" For Binary As #1
Put #1, , Text1.Text
Close #1
End Sub

[rainstormmaster]

将d:\temp.txt的内容显示在text1中
Private Sub Command2_Click()
Dim flen As Long
flen = FileLen("d:\temp.txt")
Dim s As String
s = Space(flen)
Open "d:\temp.txt" For Binary As #1
Get #1, , s
Close #1
s = Trim(s)
Text1.Text = s
End Sub