MS

WIDigConsoleApp/Module1.vb

@@ -11,7 +11,10 @@ Module Module1
     Public _database As MSSQLServer
     Public oRegExArg As String
     Public Function Main(args As String()) As Integer
+        Dim oReturnResult As Integer
         Try
+
+            oReturnResult = 0
             ' Console.WriteLine("Starting up WIDig...")
             Dim opath = Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData)
             Dim oLogConfig As New LogConfig(LogConfig.PathType.AppData, Nothing, Nothing,
@@ -36,6 +39,7 @@ Module Module1
                         System.Console.WriteLine($"Parsed all arguments!")
                         If StreamIndexFile() = True Then
                             oErrorImport = False
+                            oReturnResult = 1
                         Else
                             System.Console.WriteLine($"###Error in StreamIndexFile!####")
                             oErrorImport = True
@@ -56,6 +60,7 @@ Module Module1
 
             Else
                 oErrorMessage = "Could not initialize windream"
+
             End If
 
 
@@ -64,13 +69,15 @@ Module Module1
                 System.Console.WriteLine("### For more information check the log! Press any key to exit! ####")
                 System.Console.WriteLine($"####################")
                 Console.ReadKey()
-                Return 0
+                oReturnResult = 0
+
             Else
-                Return 1
+                oReturnResult = 1
             End If
+            Return oReturnResult
         Catch ex As Exception
             LOGGER.Error(ex)
-            Return 0
+            Return oReturnResult
         End Try
 
     End Function