Question

好的，所以我在VB.NET中工作，手动将错误日志写入日志文件（是的，我知道，我没有拨打电话）。现在，如果文件超过任意大小，当函数写出新的错误数据时，它应该启动一个带有新文件名的新文件。

这里的功能是：

        Dim listener As New Logging.FileLogTraceListener
        listener.CustomLocation = System.Configuration.ConfigurationManager.AppSettings("LogDir")
        Dim loc As String = DateTime.UtcNow.Year.ToString + DateTime.UtcNow.Month.ToString + DateTime.UtcNow.Day.ToString + DateTime.UtcNow.Hour.ToString + DateTime.UtcNow.Minute.ToString

        listener.BaseFileName = loc

        Dim logFolder As String
        Dim source As String

        logFolder = ConfigurationManager.AppSettings("LogDir")
        If ex.Data.Item("Source") Is Nothing Then
            source = ex.Source
        Else
            source = ex.Data.Item("Source").ToString
        End If

        Dim errorFileInfo As New FileInfo(listener.FullLogFileName)

        Dim errorLengthInBytes As Long = errorFileInfo.Length


        If (errorLengthInBytes > CType(System.Configuration.ConfigurationManager.AppSettings("maxFileSizeInBytes"), Long)) Then

            listener.BaseFileName = listener.BaseFileName + "1"

        End If


        Dim msg As New System.Text.StringBuilder
        If String.IsNullOrEmpty(logFolder) Then logFolder = ConfigurationManager.AppSettings("LogDir")

        msg.Append(vbCrLf & "Exception" & vbCrLf)
        msg.Append(vbTab & String.Concat("App: AppMonitor | Time: ", Date.Now.ToString) & vbCrLf)
        msg.Append(vbTab & String.Concat("Source: ", source, " | Message: ", ex.Message) & vbCrLf)
        msg.Append(vbTab & "Stack: " & ex.StackTrace & vbCrLf)


        listener.Write(msg.ToString())
        listener.Flush()

        listener.Close()

我在循环中执行此操作以进行测试，因此我可以看到当它一次得到（比方说）10000个错误时会发生什么。同样，我知道有更好的方法可以系统地处理这个问题，但这是我被告知要实现的代码。

如上所述，我怎样才能在写入之前可靠地获取日志文件的大小？

Answer 1

好吧，就像许多事情一样，对此的答案结果是“你是否仔细阅读了自己的代码”，并且“吃点东西，你需要修复你的血糖。”

经过审核，我看到我一直在检查BaseFileName，如果超过任意限制，则附加一个字符并写入该文件。我没做的是检查是否存在该文件或其他更新的文件。我已经解决了这个问题，即在Directory.GetFiles中获取与“BaseFileName *”参数匹配的所有文件的目录列表，并选择最近访问过的文件。这可确保记录器始终选择要写入的当前文件，或者 - 如果必要，则使用另一个附加字符作为基本名称。

这是代码：

        Dim directoryFiles() As String = Directory.GetFiles(listener.Location.ToString(), listener.BaseFileName + "*")

        Dim targetFile As String = directoryFiles(0)

        For j As Integer = 1 To directoryFiles.Count - 1 Step 1
            Dim targetFileInfo As New FileInfo(targetFile)
            Dim compareInfo As New FileInfo(directoryFiles(j))

            If (targetFileInfo.LastAccessTimeUtc < compareInfo.LastAccessTimeUtc) Then
                targetFile = directoryFiles(j)
            End If
        Next


        Dim errorFileInfo As New FileInfo(listener.Location.ToString() + targetFile)
        Dim errorLengthInBytes As Long = errorFileInfo.Length

FileInfo返回错误的值？

1 个答案: