add button to open input path

GUIs.Test.ZUGFeRDTest/Form1.Designer.vb

@@ -29,6 +29,7 @@ Partial Class Form1
         Me.Button3 = New System.Windows.Forms.Button()
         Me.Button4 = New System.Windows.Forms.Button()
         Me.txtMD5Checksum = New System.Windows.Forms.TextBox()
+        Me.Button5 = New System.Windows.Forms.Button()
         Me.SuspendLayout()
         '
         'OpenFileDialog1
@@ -88,11 +89,21 @@ Partial Class Form1
         Me.txtMD5Checksum.TabIndex = 5
         Me.txtMD5Checksum.Text = Global.ZUGFeRDTest.My.MySettings.Default.MD5Cheksum
         '
+        'Button5
+        '
+        Me.Button5.Location = New System.Drawing.Point(12, 41)
+        Me.Button5.Name = "Button5"
+        Me.Button5.Size = New System.Drawing.Size(221, 23)
+        Me.Button5.TabIndex = 6
+        Me.Button5.Text = "Open Input Folder"
+        Me.Button5.UseVisualStyleBackColor = True
+        '
         'Form1
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(916, 435)
+        Me.Controls.Add(Me.Button5)
         Me.Controls.Add(Me.txtMD5Checksum)
         Me.Controls.Add(Me.Button4)
         Me.Controls.Add(Me.Button3)
@@ -113,4 +124,5 @@ Partial Class Form1
     Friend WithEvents Button3 As Button
     Friend WithEvents Button4 As Button
     Friend WithEvents txtMD5Checksum As TextBox
+    Friend WithEvents Button5 As Button
 End Class

GUIs.Test.ZUGFeRDTest/Form1.vb

@@ -130,4 +130,8 @@ Public Class Form1
         End Try
 
     End Function
+
+    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
+        Process.Start("\\dd-sto01\DD-STO01-A2\SharedObjects\Public\Projekte\Test\Import\ZUGFerD\Email_in")
+    End Sub
 End Class