vb.net怎么往已经建立好的dat文件里写东西，还不覆盖原本的数据？

如果想继续编辑之前的文档，在TXT文件尾部继续添加文本，那么还需要在函数后边加个参数。

广饶ssl适用于网站、小程序/APP、API接口等需要进行数据传输应用场景，ssl证书未来市场广阔！成为创新互联建站的ssl证书销售渠道，可以享受市场价格4-6折优惠！如果有意向欢迎电话联系或者加微信：028-86922220（备注：SSL证书合作）期待与您的合作！

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")

详见：“网页链接” 

vb.net 将“1111”写入TXT文件中

If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then

My.Computer.FileSystem.WriteAllText(SaveFileDialog1.FileName, "1111", True)

End If

就可以了

vb.net中，读取和写入文件

写入：Dim sr As New IO.StreamWriter(Application.StartupPath "/写入的文本.txt")

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

关于VB.NET的写入文件

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

Dim aa As System.IO.StreamWriter = New System.IO.StreamWriter("C:\a.txt", False, System.Text.Encoding.UTF8)

Dim i As Integer = 0

For i = 0 To Val(TextBox4.Text)

aa.WriteLine("[" i "]")

aa.WriteLine("[" i "]")

Next

aa.Close()

aa.Dispose()

End Sub

关于VB.NET写文件的问题

Dim sr As New IO.StreamReader("路径") '打开文件

Dim str As String = sr.ReadToEnd() '读取文本

sr.Close() '关闭流

str = "not" str '修改文字

Dim sw As New IO.StreamWriter("路径") '打开

sw.Write(str) '写入

sw.Close() '关闭

请教，vb.net写入文件问题，为什么我用两种办法写文件只能写入最后一行

写入模式为覆盖会出现这个现象

要使用添加模式

就会累加了

当前名称：vb.net写入文件,vb 引用库文件
文章出自：http://kswjz.com/article/dsgjhed.html