fix appdata path and log path

2019-06-17 10:45:09 +02:00
parent d3b5955b45
commit 0878c02ace
2 changed files with 7 additions and 5 deletions
--- a/GUIs.ClientSuite/frmConfigUser.vb
+++ b/GUIs.ClientSuite/frmConfigUser.vb
@@ -22,7 +22,8 @@ Public Class frmConfigUser
    End Sub

    Private Sub btnAppFolder_Click(sender As Object, e As EventArgs) Handles btnAppFolder.Click
-        Process.Start(Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData))
+        Dim oAppData = Application.LocalUserAppDataPath
+        Process.Start(oAppData)
    End Sub

    Private Sub chkLogErrorsOnly_CheckedChanged(sender As Object, e As EventArgs) Handles chkLogErrorsOnly.CheckedChanged