catch appdirectory not existing

This commit is contained in:
Jonathan Jenne 2020-02-13 13:30:50 +01:00
parent f43da00ff2
commit 22399f23de

View File

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