小编Sir*_*ens的帖子

Public Sub WriteTextFile(ByVal SourceToWrite As String, ByVal LocationToWrite As String)
    Dim file As System.IO.StreamWriter
    IO.File.Delete(LocationToWrite)
    file = My.Computer.FileSystem.OpenTextFileWriter(LocationToWrite, True)
    file.WriteLine(SourceToWrite)
    file.Close()
End Sub

这是我写入.txt文件的模块.每次添加一个具有空值的新行.不会真的打扰我,但它增加了但是然后只是假设有3行的东西随着时间的推移结束5000,任何人都知道如何在写文件时不添加额外的行？