在多线程应用程序中写入文件失败vb.net

Question

我有一个将日志写入文件的多线程应用程序。有时，使用此代码保存失败

Friend Sub SaveToText(ByVal FileName As String, ByVal Text As String)
        '// create a writer and open the file
        Dim objLock As New Object
        SyncLock objLock

            Dim tw As TextWriter = Nothing
            Try
                '// write a line of text to the file
                tw = New StreamWriter(FileName, True)
                tw.Write(Text)
            Catch ex As Exception
                MessageBox.Show(ex.Message, "Error saving", _
                                MessageBoxButtons.OK, _
                                MessageBoxIcon.Error)
            Finally
                '// close the stream
                If tw IsNot Nothing Then
                    tw.Close()
                    tw.Dispose()
                End If

            End Try
        End SyncLock
    End Sub

我收到的错误消息

该进程无法访问文件“error.log”，因为它正在被访问 被另一个进程使用。

还有什么其他方法可以保证安全？

Answer 1

    Dim objLock As New Object

您的 SyncLock 语句不会锁定任何内容。每个线程都会获得自己的 objLock 实例，因为它是一个局部变量，并且每次进入该方法时都会被分配。将声明移到方法之外，使其成为类的成员。并确保该类只有一个实例。或者将其设为共享只读。