在VB.NET中创建和附加文本到txt文件

发布时间：2020-12-16 23:59:50 所属栏目：大数据来源：网络整理

导读：使用VB.NET，我试图创建一个文本文件，如果它不存在或附加文本(如果存在)。由于某些原因，尽管它正在创建文本文件，但我收到一个错误，表示进程无法访问文件。当我运行程序时，它正在编写文本，但是如何使它在新行上写？ Dim strFile As String = "C:Erro

使用VB.NET，我试图创建一个文本文件，如果它不存在或附加文本(如果存在)。

由于某些原因，尽管它正在创建文本文件，但我收到一个错误，表示进程无法访问文件。

当我运行程序时，它正在编写文本，但是如何使它在新行上写？

Dim strFile As String = "C:ErrorLog_" & DateTime.Today.ToString("dd-MMM-yyyy") & ".txt"

Dim sw As StreamWriter
Dim fs As FileStream = Nothing

If (Not File.Exists(strFile)) Then
    Try
        fs = File.Create(strFile)
        sw = File.AppendText(strFile)
        sw.WriteLine("Start Error Log for today")

    Catch ex As Exception
        MsgBox("Error Creating Log File")
    End Try
Else
    sw = File.AppendText(strFile)
    sw.WriteLine("Error Message in  Occured at-- " & DateTime.Now)

    sw.Close()
End If

尝试这个：

Dim strFile As String = "yourfile.txt"
Dim fileExists As Boolean = File.Exists(strFile)
Using sw As New StreamWriter(File.Open(strFile,FileMode.OpenOrCreate))
    sw.WriteLine( _
        IIf(fileExists,_
            "Error Message in  Occured at-- " & DateTime.Now,_
            "Start Error Log for today"))
End Using

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!