MS_22062016

app/DD-Record-Organiser/frmConstructor_Main.vb

@@ -5016,7 +5016,7 @@ Public Class frmConstructor_Main
 
     Private Sub LöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DeleteToolStripMenuItem.Click
         If RESULT_DOC_PATH <> Nothing Then
-            Dim msg = "Sind Sie sicher, dass Sie diese Dateien löschen wollen?"
+            Dim msg = "Sind Sie sicher, dass Sie diese Datei löschen wollen?"
             If USER_LANGUAGE <> "de-DE" Then
                 msg = "Are You sure You want to delete this file?"
             End If
@@ -5057,22 +5057,7 @@ Public Class frmConstructor_Main
     End Sub
 
     Private Sub DateiÖffnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DateiÖffnenToolStripMenuItem.Click
-        File_open()
-
-    End Sub
-    Sub File_open()
-        If RESULT_DOC_PATH <> Nothing Then
-            Try
-                Dim Proc As New System.Diagnostics.Process
-                Dim psi As New ProcessStartInfo(RESULT_DOC_PATH)
-                Proc.EnableRaisingEvents = True
-                Proc.StartInfo = psi
-                Proc.Start()
-            Catch ex As Exception
-                MsgBox("Unexpected Error in Open file:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-                ClassLogger.Add("Fehler bei Datei öffnen: " & ex.Message, True)
-            End Try
-        End If
+        ClassHelper.File_open(RESULT_DOC_PATH)
     End Sub
     Private Sub GridControlDocSearch_DoubleClick(sender As Object, e As EventArgs) Handles GridControlDocSearch.DoubleClick
         Try
@@ -5080,7 +5065,7 @@ Public Class frmConstructor_Main
         Catch ex As Exception
             RESULT_DOC_PATH = Nothing
         End Try
-        File_open()
+        ClassHelper.File_open(RESULT_DOC_PATH)
     End Sub
 
     Private Sub TabWindream_Leave(sender As Object, e As EventArgs) Handles TabWindream.Leave