jj

EDMI_ClientSuite/frmConfigUser.vb

@@ -1,4 +1,5 @@
-Imports System.IO
+Imports System.Configuration
+Imports System.IO
 Imports DigitalData.Modules.Logging
 Public Class frmConfigUser
     Private _Logger As Logger
@@ -21,4 +22,9 @@ Public Class frmConfigUser
     Private Sub btnAppFolder_Click(sender As Object, e As EventArgs) Handles btnAppFolder.Click
         Process.Start(Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData))
     End Sub
+
+    Private Sub SimpleButton1_Click(sender As Object, e As EventArgs) Handles SimpleButton1.Click
+        Dim config = ConfigurationManager.OpenExeConfiguration(ConfigurationUserLevel.PerUserRoamingAndLocal)
+        MessageBox.Show(config.FilePath)
+    End Sub
 End Class