Система.UnauthorizedAccessException

---

Я знаю, что однажды уже сталкивался с этим и исправлял его, но не могу найти ответа

У меня есть проект отлично работающий в режиме проектирования но после развертывания я получаю ошибку
Система.UnauthorizedAccessException: доступ к пути 'C:\Program файлы\...\Prison Alarm Manager\Errors\' отказано.

Я знаю, что ошибка исходит из этого кода, но не могу вспомнить, как ее исправить.

Dim fs As FileStream = New FileStream(Application.StartupPath & "\Errors\errlog.txt", FileMode.OpenOrCreate, FileAccess.ReadWrite)

Полная процедура должна ли она помочь

Public Sub WriteToErrorLog(ByVal msg As String, ByVal stkTrace As String, ByVal title As String)

      'check and make the directory if necessary; this is set to look in the application
      'folder, you may wish to place the error log in another location depending upon the
      'the user's role and write access to different areas of the file system
      If Not System.IO.Directory.Exists(Application.StartupPath & "\Errors\") Then
          System.IO.Directory.CreateDirectory(Application.StartupPath & "\Errors\")
      End If


      'check the file
      Dim fs As FileStream = New FileStream(Application.StartupPath & "\Errors\errlog.txt", FileMode.OpenOrCreate, FileAccess.ReadWrite)
      Dim s As StreamWriter = New StreamWriter(fs)
      s.Close()
      fs.Close()

      'log it
      Dim fs1 As FileStream = New FileStream(Application.StartupPath & "\Errors\errlog.txt", FileMode.Append, FileAccess.Write)
      Dim s1 As StreamWriter = New StreamWriter(fs1)
      s1.Write("Title: " & title & vbCrLf)
      s1.Write("Message: " & msg & vbCrLf)
      s1.Write("StackTrace: " & stkTrace & vbCrLf)
      s1.Write("Date/Time: " & DateTime.Now.ToString() & vbCrLf)
      s1.Write("===========================================================================================" & vbCrLf)
      s1.Close()
      fs1.Close()

  End Sub

---