AppStd/WIDIG
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Use Computer Config

Browse Source
This commit is contained in:
Jonathan Jenne
2021-07-28 14:02:34 +02:00
parent 48f3038c0d
commit 9956741457
1 changed files with 11 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
WIDigConsoleApp/Module1.vb
View File

@@ -19,7 +19,7 @@ Module Module1
Dim opath = Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData) Dim opath = Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData)
Dim oLogConfig As New LogConfig(LogConfig.PathType.AppData, Nothing, Nothing, Dim oLogConfig As New LogConfig(LogConfig.PathType.AppData, Nothing, Nothing,
"Digital Data", "Digital Data",
"WIDigCons") "WIDig")
LOGCONFIG = oLogConfig LOGCONFIG = oLogConfig
LOGGER = LOGCONFIG.GetLogger LOGGER = LOGCONFIG.GetLogger
@@ -82,12 +82,16 @@ Module Module1
End Function End Function
Public Sub InitUserConfig() Public Sub InitUserConfig()
Dim oUserAppDataPath = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData)
oUserAppDataPath = oUserAppDataPath & "\Digital Data\WIDigDat" Dim oProgramDataPath = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.CommonApplicationData), "Digital Data", "WIDig")
Dim oCommonAppDataPath = Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly().Location) Dim oUserAppDataPath = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData), "Digital Data", "WIDig")
CONFIG = New ConfigManager(Of ClassConfig)(LOGCONFIG, oUserAppDataPath, System.AppDomain.CurrentDomain.BaseDirectory, oCommonAppDataPath) CONFIG = New ConfigManager(Of ClassConfig)(LOGCONFIG, oUserAppDataPath, oProgramDataPath)
System.Console.WriteLine($"Config loaded!")
LOGGER.Info("Config loaded") 'oUserAppDataPath = oUserAppDataPath & "\Digital Data\WIDigDat"
'Dim oCommonAppDataPath = Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly().Location)
'CONFIG = New ConfigManager(Of ClassConfig)(LOGCONFIG, oUserAppDataPath, System.AppDomain.CurrentDomain.BaseDirectory, oCommonAppDataPath)
'System.Console.WriteLine($"Config loaded!")
'LOGGER.Info("Config loaded")
'Settings_Load() 'Settings_Load()
End Sub End Sub
Public Function InitDatabase() As Boolean Public Function InitDatabase() As Boolean