添加到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()

关闭该App时。

Answer 2

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