Interfaces: Version 1.5.3

Modules.Config/ConfigManager.vb

@@ -123,7 +123,7 @@ Public Class ConfigManager(Of T)
         End If
 
             If ApplicationStartupPath <> String.Empty Then
-            _Logger.Debug($"AppConfig is being used: [{ApplicationStartupPath}]")
+            _Logger.Info($"AppConfig is being used: [{ApplicationStartupPath}]")
             _AppConfigPath = Path.Combine(ApplicationStartupPath, APP_CONFIG_NAME)
         End If
 

Modules.Config/My Project/AssemblyInfo.vb

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

Modules.Interfaces/My Project/AssemblyInfo.vb

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

Modules.Interfaces/ZUGFeRDInterface/PDFEmbeds.vb

@@ -25,10 +25,22 @@ Public Class PDFEmbeds
     ''' <param name="AllowedExtensions">List of allowed extensions to be extracted</param>
     Public Function Extract(FilePath As String, AllowedExtensions As List(Of String)) As List(Of EmbeddedFile)
         Dim oFile As New List(Of EmbeddedFile)
+        Dim oFileInfo As FileInfo
         Dim oExtensions = AllowedExtensions.ConvertAll(New Converter(Of String, String)(Function(ext) ext.ToUpper))
 
         Logger.Debug("Extracting embedded files from [{0}]", FilePath)
 
+        Try
+            oFileInfo = New FileInfo(FilePath)
+
+            Logger.Debug("Filename: {0}", oFileInfo.Name)
+            Logger.Debug("Filesize: {0}", oFileInfo.Length)
+            Logger.Debug("Exists: {0}", oFileInfo.Exists)
+        Catch ex As Exception
+            Logger.Warn("File information for [{0}] could not be read!", FilePath)
+            Logger.Error(ex)
+        End Try
+
         Try
             Using oGDPicturePDF As New GdPicturePDF()
                 If oGDPicturePDF.LoadFromFile(FilePath, False) = GdPictureStatus.OK Then