请教各位vb高手，我如何把文本的内容text1.text写入到我新建的文本文件里

Question

Open "d:\hjj1.TXT" For Output As #1
Print #1, "在这里引用text1.text的内容"

Answer 1

给你一个通用读写函数

openfile 文件名

savefile 文件名,保存字符
Public Function openfile(ByVal filepath As String) As String
Dim s As String
Open filepath For Input As #1
While Not EOF(1)
Line Input #1, sline
s = s & sline & vbCrLf
Wend
Close #1
openfile = s
End Function

Public Function savefile(ByVal filepath As String, ByVal txt As String)
Open filepath For Output As #1
Print #1, txt
Close #1
End Function

Function disStr(ByVal vstr As String) As String '文件路径/\字符处理函数
If Right$(vstr, 1) <> "\" And Right$(vstr, 1) <> "/" And vstr <> "" Then
disStr = vstr & "\"
Else
disStr = vstr
End If
End Function

Answer 2

Open "d:\hjj1.TXT" For Output As #1
Print #1, text1.text
close #1