vb怎样创建记事本并将文本框的内容写入记事本

Question

Sub Command1_Click()

Dim fso As New FileSystemObject, txtfile As TextStream, f1 As File
Set txtfile = fso.CreateTextFile("E:\Test.txt", True)
txtfile.Write (""Text1.Text"")
End Sub

Answer 1

open "E:\Test.txt" for output as #1
print #1,Text1.Text
close #1本回答被网友采纳

Answer 2

txtfile.Write Text1.Text

很高兴能够帮助到你,如果回答解决了你的问题的话,请"采纳"我的答案,谢谢!

Answer 3

Sub Command1_Click()
set fso=New FileSystemObject
Set txtfile = fso.CreateTextFile("E:\Test.txt", True)
txtfile.Write (Text1.Text)
End Sub
如果不是字符串就不用加双引号