添加到 System.Diagnostics.Debug.Listeners 时 TextWriterTraceListener 未按预期工作

Question

完整程序：

Option Strict On : Option Explicit On Module Module1

    Sub Main()
        'System.Diagnostics.Debug.Listeners.Add(New System.Diagnostics.TextWriterTraceListener("C:\a.txt"))
        System.Diagnostics.Debug.Listeners.Add(New System.Diagnostics.TextWriterTraceListener("a.txt"))
        System.Diagnostics.Debug.WriteLine("asd")
    End Sub

End Module

运行后，我的调试文件夹中有一个文件 a.txt，但大小为 0 字节（当然，当我打开它时它是空的）

输出中不应该有“asd”吗？

Answer 1

添加一个或多个

 System.Diagnostics.Debug.Flush()

语句，和/或

 System.Diagnostics.Debug.Close()

关闭该应用程序时的语句。

Answer 2

这个问题我也很久以前就发现了。如果您愿意使用 CriticalFinalizer，则每次都可以周围进行刷新。