Fix typo, same config for both projects
This commit is contained in:
@@ -8,11 +8,7 @@ Public Class frmMain
|
||||
Try
|
||||
Me.Hide()
|
||||
Me.Visible = False
|
||||
Dim oLogConfig As New LogConfig(LogConfig.PathType.CustomPath,
|
||||
Application.LocalUserAppDataPath & "\Log",
|
||||
Nothing,
|
||||
My.Application.Info.CompanyName,
|
||||
My.Application.Info.ProductName)
|
||||
Dim oLogConfig As New LogConfig(LogConfig.PathType.AppData, Nothing, "Form", "Digital Data", "WIDig")
|
||||
|
||||
LOGCONFIG = oLogConfig
|
||||
LOGGER = LOGCONFIG.GetLogger
|
||||
@@ -55,11 +51,9 @@ Public Class frmMain
|
||||
End Sub
|
||||
|
||||
Public Sub InitUserConfig()
|
||||
CONFIG = New ConfigManager(Of ClassConfig)(LOGCONFIG, Application.UserAppDataPath, Application.CommonAppDataPath, Application.StartupPath)
|
||||
LOGGER.Info("Config loaded")
|
||||
|
||||
|
||||
'Settings_Load()
|
||||
Dim oProgramDataPath = IO.Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.CommonApplicationData), "Digital Data", "WIDig")
|
||||
Dim oUserAppDataPath = IO.Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData), "Digital Data", "WIDig")
|
||||
CONFIG = New ConfigManager(Of ClassConfig)(LOGCONFIG, oUserAppDataPath, oProgramDataPath)
|
||||
End Sub
|
||||
Private Function Connect2Windream(oPW As String)
|
||||
Try
|
||||
|
||||
Reference in New Issue
Block a user