UseAppConfig integriert wie in taskFLOW
This commit is contained in:
@@ -25,8 +25,13 @@ Public Class ClassInit
|
||||
Dim oUtils = New ConfigUtils(LOGCONFIG)
|
||||
oUtils.MigrateUserAppDataConfig(Application.UserAppDataPath, Application.ProductName, "fileFLOW")
|
||||
oUtils.MigrateCommonAppDataConfig(Application.CommonAppDataPath, Application.ProductName, "fileFLOW")
|
||||
|
||||
CONFIG = New ConfigManager(Of ClassConfig)(LOGCONFIG, Application.UserAppDataPath, Application.CommonAppDataPath, Application.StartupPath)
|
||||
Dim oCommonAppDataPath = Application.CommonAppDataPath
|
||||
Dim oStartupPath = Application.StartupPath
|
||||
If My.Settings.UseAppConfig = True Then
|
||||
LOGGER.Info("Achtung: Anstatt ComputerConfig wird AppConfig benutzt! (UseAppConfig in Appdata)")
|
||||
oCommonAppDataPath = oStartupPath
|
||||
End If
|
||||
CONFIG = New ConfigManager(Of ClassConfig)(LOGCONFIG, Application.UserAppDataPath, oCommonAppDataPath, Application.StartupPath)
|
||||
|
||||
LOGCONFIG.Debug = CONFIG.Config.LogDEBUG
|
||||
LOGGER.Info("Debug log set to: [{0}]", LOGCONFIG.Debug)
|
||||
|
||||
Reference in New Issue
Block a user