add computerconfig for machinewide config
This commit is contained in:
parent
d83b8cb3f3
commit
118f334274
@ -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
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user