From 9f2cbc17e5aa9e3e6239835e964faa90913ed734 Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Mon, 12 Jul 2021 13:57:25 +0200 Subject: [PATCH] ZUGFeRDTest: Allow xml in test --- GUIs.Test.ZUGFeRDTest/Form1.vb | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/GUIs.Test.ZUGFeRDTest/Form1.vb b/GUIs.Test.ZUGFeRDTest/Form1.vb index 00691c15..3665395b 100644 --- a/GUIs.Test.ZUGFeRDTest/Form1.vb +++ b/GUIs.Test.ZUGFeRDTest/Form1.vb @@ -169,9 +169,10 @@ Public Class Form1 Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click Dim oExtractor = New PDFEmbeds(_logConfig) Dim oResult = OpenFileDialog1.ShowDialog() + Dim oExtensions = New List(Of String) From {"docx", "doc", "pdf", "xls", "xlsx", "ppt", "pptx", "txt", "xml"} If oResult = DialogResult.OK Then - oExtractor.Extract(OpenFileDialog1.FileName, AllowedExtensions:=New List(Of String) From {"docx", "doc", "pdf", "xls", "xlsx", "ppt", "pptx", "txt"}) + oExtractor.Extract(OpenFileDialog1.FileName, AllowedExtensions:=oExtensions) End If End Sub End Class