MS

app/DD-Record-Organizer/ClassHelper.vb

@@ -159,10 +159,8 @@ Public Class ClassHelper
         Return System.Text.RegularExpressions.Regex.Replace(
           sFilename, "[?*^""<>|]", REPLACEChar)
     End Function
-    Public Shared Sub File_open(RESULT_DOC_PATH As Object, DocID As String)
+    Public Shared Function File_open(RESULT_DOC_PATH As Object, DocID As String)
         Try
-
-
             RESULT_DOC_PATH = FORMAT_WM_PATH(RESULT_DOC_PATH)
             CURRENT_OFFICE_FILE_CHANGED = False
             If RESULT_DOC_PATH <> Nothing Then
@@ -185,15 +183,18 @@ Public Class ClassHelper
                             OPEN_DOCVIEW(RESULT_DOC_PATH, DocID)
                     End Select
                 End If
+                Return True
             Else
                 MSGBOX_Handler("ERROR", "", "Sorry, but the docpath for doc-id: " & DocID & " is nothing!")
+                Return False
                 If LogErrorsOnly = False Then ClassLogger.Add(" >> RESULT_DOC_PATH IS NOTHING")
             End If
         Catch ex As Exception
             MsgBox("Unexpected Error in File_open:" & vbNewLine & ex.Message & vbNewLine & RESULT_DOC_PATH & vbNewLine & "DocID: " & DocID, MsgBoxStyle.Critical)
             ClassLogger.Add("Error in File_open: " & ex.Message & vbNewLine & " - Path: " & RESULT_DOC_PATH & " - DocID: " & DocID, True)
+            Return False
         End Try
-    End Sub
+    End Function
     Public Shared Sub Open_Folder(RESULT_DOC_PATH As Object, DocID As String)
         Try
             If RESULT_DOC_PATH <> Nothing Then