diff --git a/GUIs.Test.ZUGFeRDTest/Form1.Designer.vb b/GUIs.Test.ZUGFeRDTest/Form1.Designer.vb index 70336604..db791236 100644 --- a/GUIs.Test.ZUGFeRDTest/Form1.Designer.vb +++ b/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 diff --git a/GUIs.Test.ZUGFeRDTest/Form1.vb b/GUIs.Test.ZUGFeRDTest/Form1.vb index b48244f8..eafe4283 100644 --- a/GUIs.Test.ZUGFeRDTest/Form1.vb +++ b/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