MS_Dec2015

app/DD-Record-Organiser/ClassInit.vb

@@ -8,11 +8,16 @@ Public Class ClassInit
         ClassLogger.Init("", Environment.UserName)
     End Sub
 
-    Public Sub InitDatabase()
+    Public Function InitDatabase()
         Try
             Dim dbResult As Boolean
 
             MySettings_Load()
+
+            If LoadFileExclusion() = False Then
+                MsgBox("The Exclude File Structure for files in Folderwatch could not be initialized!", MsgBoxStyle.Information)
+            End If
+
             If MyConnectionString <> String.Empty Then
                 dbResult = ClassDatabase.Init()
             Else
@@ -25,10 +30,10 @@ Public Class ClassInit
             End If
         Catch ex As Exception
             MsgBox("Unexpected Error in Init Database:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-
+            Return False
         End Try
-       
-    End Sub
+
+    End Function
 
     Public Sub InitWindream()
         Try