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

catch appdirectory not existing

Browse Source
This commit is contained in:
Jonathan Jenne 2020-02-13 13:30:50 +01:00
parent f43da00ff2
commit 22399f23de
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
Modules.Config/ConfigManager.vb
View File

@ -84,18 +84,18 @@ Public Class ConfigManager(Of T)
_Serializer = New XmlSerializer(_BlueprintType)
_UserDirectory = _File.CreateDirectory(UserConfigPath)
_UserConfigPath = Path.Combine(_UserDirectory, USER_CONFIG_NAME)
_ComputerDirectory = _File.CreateDirectory(ComputerConfigPath)
_ComputerConfigPath = Path.Combine(_ComputerDirectory, COMPUTER_CONFIG_NAME)
If ApplicationStartupPath <> String.Empty Then
_AppConfigDirectory = _File.CreateDirectory(ApplicationStartupPath)
_AppConfigPath = Path.Combine(_AppConfigDirectory, APP_CONFIG_NAME)
End If
_WriteAllValuesToUserConfig = ForceUserConfig
_UserConfigPath = Path.Combine(_UserDirectory, USER_CONFIG_NAME)
_ComputerConfigPath = Path.Combine(_ComputerDirectory, COMPUTER_CONFIG_NAME)
_AppConfigPath = Path.Combine(_AppConfigDirectory, APP_CONFIG_NAME)
Config = LoadConfig()
End Sub
@ -183,7 +183,7 @@ Public Class ConfigManager(Of T)
End Function
Private Function LoadAppConfig(ByVal Config As T) As T
If File.Exists(_AppConfigPath) Then
If Not String.IsNullOrEmpty(_AppConfigPath) AndAlso File.Exists(_AppConfigPath) Then
Try
Dim oAppConfig = ReadFromFile(_AppConfigPath)
CopyValues(oAppConfig, Config)