MS_06.01.2015

app/DD-Record-Organiser/ClassInit.vb

@@ -28,6 +28,7 @@ Public Class ClassInit
             If dbResult = False Then
                 Throw New Exception("Find more information in the logfile.")
             End If
+            Return True
         Catch ex As Exception
             MsgBox("Unexpected Error in Init Database:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
             Return False
@@ -136,6 +137,23 @@ Public Class ClassInit
                         ClassDatabase.Execute_non_Query(sql, True)
                         ClassLogger.Add(" - Wieder abgemeldet", False)
                     End If
+                Else
+
+                    Try
+                        'Die FolderWatch starten
+                        Dim sql1 = "SELECT FOLDER_PATH FROM TBPMO_FOLDERWATCH_USER WHERE FOLDER_TYPE = 'SCAN' AND USER_ID = " & USER_GUID
+                        Dim folderwatch_SCAN = ClassDatabase.Execute_Scalar(sql1, True)
+
+                        If Not folderwatch_SCAN Is Nothing Then
+                            CURRENT_SCAN_FOLDERWATCH = folderwatch_SCAN
+                            If FWSCAN_started = True Then
+                                ClassFolderWatcher.StartStop_FolderWatchSCAN()
+                            End If
+                        End If
+                    Catch ex As Exception
+                        ClassLogger.Add("Unexpected Error in Init_Folderwatch: " & ex.Message, True)
+                    End Try
+
                 End If