use computerconfig.xml for machinewide config

This commit is contained in:
Jonathan Jenne 2019-02-26 14:49:36 +01:00
parent d23cce4e2c
commit 524351fef7

View File

@ -3,7 +3,8 @@ Imports System.Xml
Module ModuleMySettings
'Dim ConfigPath As String = Path.Combine(Application.UserAppDataPath(), "UserConfig.xml")
Public Const CONFIG_FILE = "UserConfig.xml"
Public Const USER_CONFIG_FILE = "UserConfig.xml"
Public Const COMPUTER_CONFIG_FILE = "ComputerConfig.xml"
Public MyConnectionString As String = ""
Public LogErrorsOnly As Boolean = True
@ -15,11 +16,11 @@ Module ModuleMySettings
Public FWSCAN_started As Boolean = False
Public Function GetUserConfigPath() As String
Return Path.Combine(Application.UserAppDataPath(), CONFIG_FILE)
Return Path.Combine(Application.UserAppDataPath(), USER_CONFIG_FILE)
End Function
Public Function GetAllUsersConfigPath() As String
Return Path.Combine(Application.CommonAppDataPath(), CONFIG_FILE)
Return Path.Combine(Application.CommonAppDataPath(), COMPUTER_CONFIG_FILE)
End Function
Public Function GetCurrentConfigPath() As String