use computerconfig.xml for machinewide config
This commit is contained in:
parent
d23cce4e2c
commit
524351fef7
@ -3,7 +3,8 @@ Imports System.Xml
|
|||||||
|
|
||||||
Module ModuleMySettings
|
Module ModuleMySettings
|
||||||
'Dim ConfigPath As String = Path.Combine(Application.UserAppDataPath(), "UserConfig.xml")
|
'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 MyConnectionString As String = ""
|
||||||
Public LogErrorsOnly As Boolean = True
|
Public LogErrorsOnly As Boolean = True
|
||||||
@ -15,11 +16,11 @@ Module ModuleMySettings
|
|||||||
Public FWSCAN_started As Boolean = False
|
Public FWSCAN_started As Boolean = False
|
||||||
|
|
||||||
Public Function GetUserConfigPath() As String
|
Public Function GetUserConfigPath() As String
|
||||||
Return Path.Combine(Application.UserAppDataPath(), CONFIG_FILE)
|
Return Path.Combine(Application.UserAppDataPath(), USER_CONFIG_FILE)
|
||||||
End Function
|
End Function
|
||||||
|
|
||||||
Public Function GetAllUsersConfigPath() As String
|
Public Function GetAllUsersConfigPath() As String
|
||||||
Return Path.Combine(Application.CommonAppDataPath(), CONFIG_FILE)
|
Return Path.Combine(Application.CommonAppDataPath(), COMPUTER_CONFIG_FILE)
|
||||||
End Function
|
End Function
|
||||||
|
|
||||||
Public Function GetCurrentConfigPath() As String
|
Public Function GetCurrentConfigPath() As String
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user