MS Init TEST/PROD, Layout

This commit is contained in:
2024-07-09 16:37:36 +02:00
parent 4a93b2e6fe
commit 1c5afd198f
5 changed files with 143 additions and 107 deletions

View File

@@ -19,6 +19,8 @@ Public Class ClassInit
My.Settings.UserConfig_Prefix,
My.Application.Info.CompanyName,
My.Application.Info.ProductName)
LOGGER = LOGCONFIG.GetLogger("taskFLOW")
LOGGER.Info("## taskFLOW started - {0}", Now)
@@ -43,6 +45,9 @@ Public Class ClassInit
Public Sub InitUserConfig()
Try
Dim oUserAppDataPath As String = Application.UserAppDataPath
If My.Settings.UserConfig_Prefix <> String.Empty Then
oUserAppDataPath += "\" + My.Settings.UserConfig_Prefix
End If
Dim oCommonAppDataPath = Application.CommonAppDataPath
Dim oStartupPath = Application.StartupPath