ms Globix

GUIs.ZooFlow/Modules/Globix/ClassFolderwatcher.vb

@@ -51,7 +51,7 @@ Public Class ClassFolderwatcher
             Logger.Error(ex.Message)
         End Try
     End Sub
-    Public Sub StartStop_FolderWatch()
+    Public Function StartStop_FolderWatch()
         Try
             If FWFolderWatcher Is Nothing OrElse FWFolderWatcher.EnableRaisingEvents = False Then
                 ' Folderwatch neu instanzieren
@@ -59,7 +59,7 @@ Public Class ClassFolderwatcher
                 My.Application.Globix.Folderwatchstarted = True
                 My.UIConfig.Globix.FolderWatchStarted = True
                 My.UIConfigManager.Save()
-
+                Return 1
             End If
 
             If FWFolderWatcher.EnableRaisingEvents = True Then
@@ -69,12 +69,13 @@ Public Class ClassFolderwatcher
                 Logger.Info(" >> FolderWatch gestoppt")
                 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)
         End Try
-    End Sub
+    End Function
     Public Function StartStop_FolderWatchSCAN() As Integer
         Try
             If My.Application.Globix.CURRENT_SCAN_FOLDERWATCH = "" Then