diff --git a/app/DD_PM_WINDREAM/App.config b/app/DD_PM_WINDREAM/App.config
index 6d9b7d1..8c5ddaa 100644
--- a/app/DD_PM_WINDREAM/App.config
+++ b/app/DD_PM_WINDREAM/App.config
@@ -14,6 +14,9 @@
True
+
+ TEST
+
diff --git a/app/DD_PM_WINDREAM/ClassConfig.vb b/app/DD_PM_WINDREAM/ClassConfig.vb
index 4a80d20..4ccd166 100644
--- a/app/DD_PM_WINDREAM/ClassConfig.vb
+++ b/app/DD_PM_WINDREAM/ClassConfig.vb
@@ -8,7 +8,7 @@ Public Class ClassConfig
Public Property ConnectionStringTest As String = ""
Public Property ConnectionStringAppServer As String = ""
-
+
Public Property AppServerConfig As String = ""
Public Property TestMode As Boolean = False
diff --git a/app/DD_PM_WINDREAM/ClassInit.vb b/app/DD_PM_WINDREAM/ClassInit.vb
index 58fadb6..74dad69 100644
--- a/app/DD_PM_WINDREAM/ClassInit.vb
+++ b/app/DD_PM_WINDREAM/ClassInit.vb
@@ -42,15 +42,32 @@ Public Class ClassInit
Public Sub InitUserConfig()
Try
- Dim AppdataPath = Application.UserAppDataPath
- Dim CommonAppDataPath = Application.CommonAppDataPath
- Dim StartupPath = Application.StartupPath
- If My.Settings.UseAppConfigConString = True Then
- AppdataPath = StartupPath
- CommonAppDataPath = StartupPath
+ Dim oUserAppDataPath As String = Application.UserAppDataPath
+ Dim oLegacyAppDataPath As String = Application.UserAppDataPath
+ Dim oCommonAppDataPath = Application.CommonAppDataPath
+ Dim oStartupPath = Application.StartupPath
+ Dim oConfigPrefix As String = My.Settings.UserConfig_Prefix
+
+ ' If prefix is configured, use it to create a subfolder in app data and migrate existing data
+ If oConfigPrefix.Length > 0 Then
+ oUserAppDataPath = IO.Path.Combine(Application.UserAppDataPath, oConfigPrefix)
+
+ Dim oConfigUtils As New ConfigUtils(LOGCONFIG)
+
+ If oConfigUtils.TestMigrationNeeded(oUserAppDataPath) Then
+ LOGCONFIG.Debug = True
+ oConfigUtils.MigrateConfig(oLegacyAppDataPath, oUserAppDataPath)
+ LOGCONFIG.Debug = False
+ End If
End If
- CONFIG = New ConfigManager(Of ClassConfig)(LOGCONFIG, AppdataPath, CommonAppDataPath, StartupPath)
+ ' If AppConfig from Startup Path should be forced, rewrite the common app data path
+ If My.Settings.UseAppConfigConString = True Then
+ ' UserAppDataPath = StartupPath
+ oCommonAppDataPath = oStartupPath
+ End If
+
+ CONFIG = New ConfigManager(Of ClassConfig)(LOGCONFIG, oUserAppDataPath, oCommonAppDataPath, oStartupPath)
LOGGER.Info("Config loaded")
If CONFIG.Config.ConnectionStringTest <> String.Empty And CONFIG.Config.TestMode = True Then
diff --git a/app/DD_PM_WINDREAM/My Project/Settings.Designer.vb b/app/DD_PM_WINDREAM/My Project/Settings.Designer.vb
index 73ccc60..4f03ca3 100644
--- a/app/DD_PM_WINDREAM/My Project/Settings.Designer.vb
+++ b/app/DD_PM_WINDREAM/My Project/Settings.Designer.vb
@@ -297,6 +297,15 @@ Namespace My
Return CType(Me("UseAppConfigConString"),Boolean)
End Get
End Property
+
+ _
+ Public ReadOnly Property UserConfig_Prefix() As String
+ Get
+ Return CType(Me("UserConfig_Prefix"),String)
+ End Get
+ End Property
End Class
End Namespace
diff --git a/app/DD_PM_WINDREAM/My Project/Settings.settings b/app/DD_PM_WINDREAM/My Project/Settings.settings
index 5137e6a..310cf2d 100644
--- a/app/DD_PM_WINDREAM/My Project/Settings.settings
+++ b/app/DD_PM_WINDREAM/My Project/Settings.settings
@@ -67,5 +67,8 @@
True
+
+ TEST
+
\ No newline at end of file