将日志信息保存到文本文件时，在 App.Config 中获取“不允许‘位置’属性”

Question

我想在 Application.Log 文件中记录用户活动，以便我可以检查他/她在发生任何错误之前做了什么，或者只是检查用户是否执行了任何错误活动。首先，为了记录活动，我从Microsoft 的文档网站阅读了文章'How to: Write Log Messages (Visual Basic)'，并根据我的需要更改了适当的值。一切都很好，我在 Debug Output 中成功获取了信息，但是当我想将其保存到文本文件时，我遇到了问题。我按照Microsoft 的文档网站上的文章“How to: Write Event Information to a Text File (Visual Basic)”中给出的说明进行操作。 网站上写的将日志信息保存到文本文件的代码是：

<add name="FileLogListener"   
    type="Microsoft.VisualBasic.Logging.FileLogTraceListener,   
          Microsoft.VisualBasic, Version=8.0.0.0, Culture=neutral,   
          PublicKeyToken=b03f5f7f11d50a3a"  
    initializeData="FileLogListenerWriter"  
    location="Custom"  
    customlocation="c:\temp\" />  

上面提到的所有代码看起来都很好，除了location和customlocation这两个抛出错误Message之外，没有显示任何错误，

• 不允许使用“location”属性。
• 不允许使用“customlocation”属性。

我尝试了很多，但无法解决这个错误。我在那个文档站点上发现了一个有趣的注释。它说如下。

ⓘ注意

要设置侦听器属性的值，请使用与该属性同名的属性，名称中的所有字母都小写。例如，location 和 customlocation 属性设置 Location 和 CustomLocation 属性的值。

但即使通过阅读这些网站中提供的信息，我也未能解决该错误。

请帮忙！

Answer 1

我怀疑您的配置文件可能不太正确。我点击了从this page 到here 的链接，并将配置示例复制到我的应用程序中。然后我回到另一个页面并根据它修改了我的配置文件。然后我运行了我的应用程序，该应用程序的默认名称为“ConsoleApp1”，我确实看到文件“ConsoleApp1.log”写入了包含适当信息的指定文件夹。这是我的最终配置文件的样子：

<?xml version="1.0" encoding="utf-8" ?>
<configuration>
  <startup>
    <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.7" />
  </startup>
  <system.diagnostics>
    <sources>
      <source name="DefaultSource" switchName="DefaultSwitch">
        <listeners>
          <add name="FileLogListener"/>
        </listeners>
      </source>
    </sources>
    <switches>
      <add name="DefaultSwitch" value="Information" />
    </switches>
    <sharedListeners>
      <add name="FileLogListener"
           type="Microsoft.VisualBasic.Logging.FileLogTraceListener, Microsoft.VisualBasic, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL"
           initializeData="FileLogListenerWriter"
           location="Custom"
           customlocation="D:\johnm\Documents\" />
    </sharedListeners>
  </system.diagnostics>
</configuration>

这是我的 VB 代码：

Module Module1

    Sub Main()
        TracingTest(My.Computer.FileSystem.CombinePath(My.Computer.FileSystem.SpecialDirectories.MyDocuments, "LogFile.txt"))
        Console.ReadLine()
    End Sub

    Public Sub TracingTest(ByVal fileName As String)
        My.Application.Log.WriteEntry($"Entering TracingTest with argument '{fileName}'.")

        ' Code to trace goes here.

        My.Application.Log.WriteEntry($"Exiting TracingTest with argument '{fileName}'.")
    End Sub

End Module