Quantcast
Channel: VBForums
Viewing all articles
Browse latest Browse all 16011

Access to the path "C:\Program Files (x86)\....\MyFile.txt" is denied.

$
0
0
Hi. The first time I run this program works fine. Now, if I close the program and open it again I receive this error that crashes the program "Access to the path "C:\Program Files (x86)\....\MyFile.txt" is denied.". It doesn't happen in the bin directory when I'm coding. It only happens when I install the program in the "C:\Program Files (x86)" directory with an installer. Is there a way to get around this issue? Thanks a lot.

Code:

Try
    Dim UpdateLogFilePosition As Boolean = False
    'INCLUDE THE DATE IN THE FILE'S NAME
    Dim LogFilePositionDate As String           
    LogFilePositionDate = DateTime.Now.ToString("d").ToString()
    LogFilePositionDate = Replace(LogFilePositionDate, "/", "-")    'ELIMINATES THE "/" FROM THE FILE NAME.
    UpdateLogFilePosition = True

    If UpdateLogFilePosition = True Then                             
          GetFENNotationForPython()                               
          Dim LogPositionFile As System.IO.StreamWriter
          LogPositionFile = My.Computer.FileSystem.OpenTextFileWriter(Application.StartupPath & "\BoardPositionsLog\PositionsLog_" & LogFilePositionDate & ".txt", True)
          LogPositionFile.WriteLine(FENPosition)
          LogPositionFile.Close()
    End If

Catch ex As Exception

    For IVar = 0 To 63
        LogFileLastBoardPosition(IVar) = BoardPosition(IVar)
    Next

    MessageBox.Show(ex.Message) 'HERE THE PROGRAM CRASHES.
    Exit Sub

End Try


Viewing all articles
Browse latest Browse all 16011

Latest Images

Trending Articles



Latest Images

<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>