MS_22062016

app/DD-Record-Organiser/ClassHelper.vb

@@ -92,4 +92,18 @@ Public Class ClassHelper
         Return System.Text.RegularExpressions.Regex.Replace( _
           sFilename, "[?*^""<>|]", REPLACEChar)
     End Function
+    Public Shared Sub File_open(ByVal RESULT_DOC_PATH)
+        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("Error in Open_File: " & ex.Message, True)
+            End Try
+        End If
+    End Sub
 End Class