写入：Dim sr As New IO.StreamWriter(Application.StartupPath "/写入的文本.txt")
成都创新互联2013年开创至今，先为黄陵等服务建站，黄陵等地企业，进行企业商务咨询服务。为黄陵企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。
sr.WriteLine("写入的内容") sr.Close()读取：If (File.Exists(Application.StartupPath "/msg.txt")) Then
Dim fm As New IO.FileStream(Application.StartupPath "/读取的文本.txt", FileMode.Open)
Dim sr As IO.StreamReader = New IO.StreamReader(fm)
Do While sr.Peek() = 0
TextBox1.Text = sr.ReadLine() （读取文本到文本框）
Loop end if
如果想继续编辑之前的文档，在TXT文件尾部继续添加文本，那么还需要在函数后边加个参数。
VB 代码
方法1：
Dim sw As StreamWriter = New StreamWriter("C:\temp\test.txt")
sw.Write("abc" vbCrLf)
sw.Close()
Dim sw2 As StreamWriter = New StreamWriter("C:\temp\test.txt", True)
sw2.Write("456" vbCrLf)
sw2.Close()
方法2：
My.Computer.FileSystem.WriteAllText("test.txt", "This is test Text", True)
方法3：
System.IO.File.AppendAllText("c:\temp\test.txt", "this is extra test file")
详见：“网页链接”
用SQL数据库。VB.NET是微软公司在2002年推出的一种开发基于.Net平台应用程序的开发语言，vb.net在单击回车键时将数据写入数据库需要用SQL数据库。
