GDPicture Update Zugferdtest, Zugferdservice auf 14.4.4

GUIs.Test.ZUGFeRDTest/Form1.vb

@@ -216,6 +216,12 @@ Public Class Form1
             oResult = FolderBrowserDialog1.ShowDialog()
             oInputPath = FolderBrowserDialog1.SelectedPath
         End If
+        Dim xmlFiles = Directory.GetFiles(oInputPath, "*.xml")
+        Dim pdfFiles = Directory.GetFiles(oInputPath, "*.pdf")
+        If xmlFiles.Length = 0 AndAlso pdfFiles.Length = 0 Then
+            MessageBox.Show($"Keine XML- oder PDF-Dateien in {oInputPath} gefunden!")
+            Return
+        End If
 
         If oResult = DialogResult.OK Then
             Dim args As New WorkerArgs() With {
@@ -238,6 +244,7 @@ Public Class Form1
             Dim job As New ImportZUGFeRDFiles(_logConfig, _mssql)
 
             job.Start(args)
+
         End If
     End Sub
 
@@ -414,6 +421,10 @@ Public Class Form1
 
     End Function
 
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        Process.Start("explorer.exe", _logConfig.LogDirectory)
+    End Sub
+
     'Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
     '    Process.Start("explorer.exe", _logConfig.LogDirectory)
     'End Sub