MS Init ConfigPraefix for Logging

app/DD_PM_WINDREAM/ClassInit.vb

@@ -16,8 +16,13 @@ Public Class ClassInit
 
     <STAThread()>
     Public Sub InitLogger()
+        Dim oConfigPrefix As String = My.Settings.UserConfig_Prefix
+        Dim oLocalUserAppDataPath As String = Application.LocalUserAppDataPath
+        If oConfigPrefix.Length > 0 Then
+            oLocalUserAppDataPath = IO.Path.Combine(oLocalUserAppDataPath, oConfigPrefix)
+        End If
         LOGCONFIG = New LogConfig(LogConfig.PathType.CustomPath,
-                                       Application.LocalUserAppDataPath & "\Log",
+                                       oLocalUserAppDataPath & "\Log",
                                         Nothing,
                                         My.Application.Info.CompanyName,
                                         My.Application.Info.ProductName)