追加到新行

Question

嗨，我有以下代码附加一个文本基本文件知道为.pgp文件;除了每次我启动这个应用程序我追加文本在一个连续的行我需要的文本应用到一个新的eveytime它使用的所有工作正常。

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 

    Dim FILE_NAME As String = "C:\test.pgp" 

    If System.IO.File.Exists(FILE_NAME) = True Then 
     Dim objWriter As New System.IO.StreamWriter(FILE_NAME, True) 
     objWriter.Write("saywhat " + (TextBox1.Text) + " case idont know what that means" + (TextBox2.Text)) 
     objWriter.Close() 
     MsgBox("CUSTOM.pgp file successfully appended") 
    Else 
     MsgBox("File Does Not Exist") 
    End If 


End Sub 

其次是以下行，如果我添加了假谷而不是真正的它应该（根据http://www.homeandlearn.co.uk/net/nets8p5.html）创建一个文件，如果它dosnt存在，罂粟籽公鸡，任何人都可以解释什么即时做错了什么？

Dim objWriter As New System.IO.StreamWriter(FILE_NAME, True) 

Answer 1

如果VB.NET可以使用

objWriter.WriteLine() 

如果VBA 插入一行到文件..之前或之后的内容...

objWriter.Write("" & Chr(10) & Chr(13)) 

在窗口中，一行中的\ r \ n模式会使换行符...适合其他OperatingSystem使用。