ZooFlow: IDB Admin

GUIs.ZooFlow/Globix/ClassFolderwatcher.vb

@@ -34,7 +34,7 @@ Public Class ClassFolderwatcher
             Logger.Error(ex.Message)
         End Try
     End Function
-    Public Function Restart_FolderWatchSCAN()
+    Public Sub Restart_FolderWatchSCAN()
         Try
             If FWScan.EnableRaisingEvents = True Then
                 'Gestartet also Stoppen
@@ -53,13 +53,9 @@ Public Class ClassFolderwatcher
             Logger.Info($"Error in Restart_FolderWatchSCAN: {ex.Message}")
             Logger.Error(ex.Message)
         End Try
-    End Function
-    Public Function StartStop_FolderWatch()
+    End Sub
+    Public Sub StartStop_FolderWatch()
         Try
-            If My.Application.Globix.CurrentFolderWatchPath = "" Then
-                'MsgBox("Bitte definieren Sie einen Überwachungsordner:", MsgBoxStyle.Exclamation)
-                Return False
-            End If
             If FWFolderWatcher Is Nothing Then
                 FWFolderWatcher = New System.IO.FileSystemWatcher(My.Application.Globix.CurrentFolderWatchPath, "*.*")
                 Logger.Info(" >> FolderWatch Gestartet")
@@ -70,7 +66,6 @@ Public Class ClassFolderwatcher
                 'SaveConfigValue("my.Application.Globix.Folderwatchstarted", "True")
                 My.UIConfig.Globix.FolderWatchStarted = True
                 My.UIConfigManager.Save()
-                Return 1
             End If
             If FWFolderWatcher.EnableRaisingEvents = False Then
                 ' Dim watcher As New FileSystemWatcher()
@@ -84,7 +79,6 @@ Public Class ClassFolderwatcher
                 'SaveConfigValue("my.Application.Globix.Folderwatchstarted", "True")
                 My.UIConfig.Globix.FolderWatchStarted = True
                 My.UIConfigManager.Save()
-                Return 1
             Else
                 'Gestartet also Stoppen
                 FWFolderWatcher.EnableRaisingEvents = False
@@ -93,15 +87,12 @@ Public Class ClassFolderwatcher
                 'SaveConfigValue("my.Application.Globix.Folderwatchstarted", "False")
                 My.UIConfig.Globix.FolderWatchStarted = False
                 My.UIConfigManager.Save()
-                Return 0
             End If
-
         Catch ex As Exception
             Logger.Error(ex.Message)
             MsgBox("Error in StartStop_FolderWatch:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-            Return 99
         End Try
-    End Function
+    End Sub
     Public Function StartStop_FolderWatchSCAN() As Integer
         Try
             If My.Application.Globix.CURRENT_SCAN_FOLDERWATCH = "" Then