add computerconfig for machinewide config

This commit is contained in:
Jonathan Jenne 2019-02-26 15:04:46 +01:00
parent d83b8cb3f3
commit 118f334274

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 UniversalViewer As String = ""
@ -26,11 +27,11 @@ Module ModuleMySettings
Public WMSESSION_STARTSTOP_STARTUP 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