Dakosy Import try to fix

initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.vb

@@ -25,6 +25,7 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
     Public year As Integer
     Public UtaTestkunden As Boolean = False
     Public RMCNewFormat As Boolean = True
+    Dim Einarbeitungspfad As String = ""
 
 
     Sub New(programName As String)
@@ -64,6 +65,7 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
             setButtons(Not rmc.ZIEL_PFAD = "")
             If rmc.VERARBEITUNG_PFAD = "" Then Exit Sub
             If rmc.ZIEL_PFAD = "" Then Exit Sub
+            Einarbeitungspfad = rmc.VERARBEITUNG_PFAD
             For Each d In System.IO.Directory.GetFiles(rmc.VERARBEITUNG_PFAD)
                 ListBox3.Items.Add(frmStartOptions.cut_file(d))
                 Me.Refresh()
@@ -74,6 +76,7 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
             setButtons(Not uta.ZIEL_PFAD = "")
             If uta.VERARBEITUNG_PFAD = "" Then Exit Sub
             If uta.ZIEL_PFAD = "" Then Exit Sub
+            Einarbeitungspfad = uta.VERARBEITUNG_PFAD
             For Each d In System.IO.Directory.GetFiles(uta.VERARBEITUNG_PFAD)
                 ListBox3.Items.Add(frmStartOptions.cut_file(d))
                 Me.Refresh()
@@ -84,6 +87,7 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
             setButtons(Not ids.ZIEL_PFAD = "")
             If ids.VERARBEITUNG_PFAD = "" Then Exit Sub
             If ids.ZIEL_PFAD = "" Then Exit Sub
+            Einarbeitungspfad = ids.VERARBEITUNG_PFAD
             For Each d In System.IO.Directory.GetFiles(ids.VERARBEITUNG_PFAD)
                 ListBox3.Items.Add(frmStartOptions.cut_file(d))
                 Me.Refresh()
@@ -91,6 +95,7 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
 
         ElseIf programName.Contains("MSE") Then
             If mse.PDFRECHNUNGENPFAD_VERARBEITUNG = "" Then Exit Sub
+            Einarbeitungspfad = mse.PDFRECHNUNGENPFAD_VERARBEITUNG
             For Each d In System.IO.Directory.GetFiles(mse.PDFRECHNUNGENPFAD_VERARBEITUNG)
                 ListBox3.Items.Add(frmStartOptions.cut_file(d))
                 Me.Refresh()
@@ -1442,5 +1447,10 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
 
     End Sub
 
+    Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
+        If Einarbeitungspfad <> "" AndAlso System.IO.Directory.Exists(Einarbeitungspfad) Then
+            Process.Start(Einarbeitungspfad)
+        End If
+    End Sub
 End Class