MS Init TEST/PROD, Layout
This commit is contained in:
@@ -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
|
||||
|
||||
|
||||
Reference in New Issue
Block a user