VB.NET如何保持文件打开状态以持续写入日志

直接在VB.NET中持有一个全局/类级别的StreamWriter实例，就能模拟VB6中FileSystemObject TextStream持续打开的行为，同时满足立即写入的要求，避免反复打开关闭的开销。

具体实现步骤 #

• 声明类级别的StreamWriter变量，用于全程保持文件流打开状态
• 初始化时打开日志文件，配置正确的文件访问权限（允许其他进程读取日志）
• 每次写入日志后调用Flush()强制将缓存写入磁盘
• 程序退出时手动释放StreamWriter资源

代码示例 #

Imports System.IO

Public Class MainForm
    ' 类级别变量，保持StreamWriter实例活跃
    Private logWriter As StreamWriter

    Private Sub MainForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim logPath As String = "C:\Logs\app.log"
        ' 确保日志目录存在
        Directory.CreateDirectory(Path.GetDirectoryName(logPath))
        ' 创建/打开日志文件，允许其他进程读取日志文件
        logWriter = New StreamWriter(File.Open(logPath, FileMode.Append, FileAccess.Write, FileShare.Read))
        ' 可选：开启自动刷新，替代手动Flush（按需选择）
        ' logWriter.AutoFlush = True
    End Sub

    ' 自定义日志写入方法
    Private Sub WriteLog(message As String)
        If logWriter IsNot Nothing Then
            ' 写入带时间戳的日志
            logWriter.WriteLine($"{DateTime.Now:yyyy-MM-dd HH:mm:ss} - {message}")
            ' 强制将缓存写入磁盘，确保日志立即生效
            logWriter.Flush()
        End If
    End Sub

    ' 程序退出时释放资源
    Private Sub MainForm_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
        If logWriter IsNot Nothing Then
            logWriter.Close()
            logWriter.Dispose()
        End If
    End Sub

    ' 业务操作示例：每次操作后立即写日志
    Private Sub btnDoOperation_Click(sender As Object, e As EventArgs) Handles btnDoOperation.Click
        ' 执行业务逻辑
        ' ...
        ' 立即写入日志
        WriteLog("业务操作执行完成")
    End Sub
End Class

关键注意事项 #

• 文件共享设置：使用FileShare.Read允许其他工具（如记事本）在程序运行时查看日志，避免文件被独占锁定
• Flush()的必要性：StreamWriter默认会缓存写入内容，调用Flush()才能确保日志立即写入磁盘，满足业务要求
• 资源释放：必须在程序退出时手动关闭并释放StreamWriter，否则可能丢失最后写入的日志，甚至导致文件损坏
• 异常处理：建议在初始化和写入方法中添加Try-Catch块，处理磁盘满、权限不足等文件访问异常

关于Using语句的说明 #

Using语句会自动释放资源，适合一次性操作，但你的场景需要全程保持流打开，因此不能用Using包裹整个实例生命周期，而是在程序退出时手动释放资源。

内容的提问来源于stack exchange，提问作者OldCurmudgeon