jj: Logging Version 0.0.6 - Add Log Directory for appdata path

This commit is contained in:
Jonathan Jenne 2019-01-30 14:39:55 +01:00
parent 0381511537
commit afb2f1f658
2 changed files with 2 additions and 3 deletions

View File

@ -173,7 +173,6 @@ Public Class LogConfig
basePath = Path.Combine(appDataDir, companyName, productName, FOLDER_NAME_LOG) basePath = Path.Combine(appDataDir, companyName, productName, FOLDER_NAME_LOG)
ElseIf logPath = PathType.CurrentDirectory Then ElseIf logPath = PathType.CurrentDirectory Then
Dim currentDirectory As String = My.Application.Info.DirectoryPath Dim currentDirectory As String = My.Application.Info.DirectoryPath
basePath = Path.Combine(currentDirectory, FOLDER_NAME_LOG) basePath = Path.Combine(currentDirectory, FOLDER_NAME_LOG)
Else 'Custom Path Else 'Custom Path
basePath = customLogPath basePath = customLogPath
@ -197,7 +196,7 @@ Public Class LogConfig
End Using End Using
File.Delete(fileAccessPath) File.Delete(fileAccessPath)
Catch ex As UnauthorizedAccessException Catch ex As Exception
' If creation fails, use failSafe path ' If creation fails, use failSafe path
basePath = failSafePath basePath = failSafePath
End Try End Try

View File

@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("0.0.0.4")> <Assembly: AssemblyVersion("0.0.0.6")>
<Assembly: AssemblyFileVersion("1.0.0.0")> <Assembly: AssemblyFileVersion("1.0.0.0")>