From 118f334274b67789da0c340aab65c56a88bf1aeb Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Tue, 26 Feb 2019 15:04:46 +0100 Subject: [PATCH] add computerconfig for machinewide config --- app/DD_PM_WINDREAM/ModuleMySettings.vb | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/app/DD_PM_WINDREAM/ModuleMySettings.vb b/app/DD_PM_WINDREAM/ModuleMySettings.vb index 2aabdeb..4b7bd45 100644 --- a/app/DD_PM_WINDREAM/ModuleMySettings.vb +++ b/app/DD_PM_WINDREAM/ModuleMySettings.vb @@ -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