Доступ к пути входа отрицается случайно

Question

, когда я пишу в мой лог-файл иногда я получаю доступ для входа путь запрещен C: /app/log.log

Вот мой код:

Private filePath As String 
Private fileStream As FileStream 
Private streamWriter As StreamWriter 

Public Sub OpenFile() 
    Dim strPath As String 
    strPath = My.Application.Info.DirectoryPath + "\log.log" 
    If System.IO.File.Exists(strPath) Then 
     fileStream = New FileStream(strPath, FileMode.Append, FileAccess.Write) 
    Else 
     fileStream = New FileStream(strPath, FileMode.Create, FileAccess.Write) 
    End If 
    streamWriter = New StreamWriter(fileStream) 
End Sub 

Public Sub WriteLog(ByVal strComments As String) 
    OpenFile() 
    streamWriter.WriteLine(Date.Now.ToString & " " & strComments) 
    CloseFile() 
End Sub 

Public Sub CloseFile() 
    streamWriter.Close() 
    fileStream.Close() 
End Sub 

В любом случае, чтобы использовать разрешения администратора или устранить эту проблему? Иногда это происходит, и я не уверен, почему это происходит, но если я удалю файл log.log, приложение может снова записать в журнал. Очень странно.

Answer 1

Вы вызываете свою функцию WriteLog из нескольких потоков асинхронно, вы должны защитить эту функцию, например, с помощью мьютекса.