AppStd/Modules
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

MS Globix Folderwatch

Browse Source
This commit is contained in:
SchreiberM
2022-02-25 14:41:18 +01:00
parent 80a541ff36
commit 1e3ee983e7
6 changed files with 100 additions and 107 deletions
Download Patch File Download Diff File Expand all files Collapse all files

54
GUIs.ZooFlow/frmFlowForm.vb
View File

@@ -309,7 +309,7 @@ Public Class frmFlowForm
End If
Init_Folderwatch()
Start_Folderwatch()
Folderwatch_CheckFiles()
GlobixToolStripMenuItem.Visible = True
End If
@@ -390,21 +390,21 @@ Public Class frmFlowForm
My.Application.Globix.Folderwatchstarted = False
My.UIConfig.Globix.FolderWatchStarted = False
My.UIConfigManager.Save()
Else
If Not IO.Directory.Exists(oFolderWatchPath) Then
Logger.Info("Init_Folderwatch: folderwatchPath does not exists or is invalid path")
My.Application.Globix.Folderwatchstarted = False
My.UIConfig.Globix.FolderWatchStarted = False
My.UIConfigManager.Save()
Else
My.Application.Globix.CurrentFolderWatchPath = oFolderWatchPath
FolderWatch.StartStop_FolderWatch()
End If
End If
If Not IO.Directory.Exists(oFolderWatchPath) Then
Logger.Info("Init_Folderwatch: folderwatchPath does not exists or is invalid path")
My.Application.Globix.Folderwatchstarted = False
My.UIConfig.Globix.FolderWatchStarted = False
My.UIConfigManager.Save()
End If
My.Application.Globix.CurrentFolderWatchPath = oFolderWatchPath
My.Application.Globix.Folderwatchstarted = True
'FWFunction_STARTED = True
FolderWatch.StartStop_FolderWatch()
Catch ex As Exception
ShowErrorMessage(ex)
End Try
@@ -416,24 +416,22 @@ Public Class frmFlowForm
oFolderwatchScanPath = IIf(IsDBNull(oFolderwatchScanPath), "", oFolderwatchScanPath)
If oFolderwatchScanPath = String.Empty Then
Logger.Info("Init_Folderwatch: folderwatchScanPath is empty")
My.UIConfig.Globix.FolderWatchStarted = False
Logger.Info("Init_Folderwatch: folderwatchPath is empty")
My.Application.Globix.ScanFolderwatchstarted = False
My.UIConfig.Globix.FolderWatchScanStarted = False
My.UIConfigManager.Save()
Exit Sub
Else
If Not IO.Directory.Exists(oFolderwatchScanPath) Then
Logger.Info("Init_Folderwatch: folderwatchPath does not exists or is invalid path")
My.Application.Globix.ScanFolderwatchstarted = False
My.UIConfig.Globix.FolderWatchScanStarted = False
My.UIConfigManager.Save()
Else
My.Application.Globix.CURRENT_SCAN_FOLDERWATCH = oFolderwatchScanPath
FolderWatch.StartStop_FolderWatchSCAN()
End If
End If
If Not IO.Directory.Exists(oFolderwatchScanPath) Then
Logger.Info("Init_Folderwatch: folderwatchScanPath does not exists or is invalid path")
My.UIConfig.Globix.FolderWatchStarted = False
My.UIConfigManager.Save()
Exit Sub
End If
My.Application.Globix.CURRENT_SCAN_FOLDERWATCH = oFolderwatchScanPath
'FWFunction_STARTED = True
FolderWatch.StartStop_FolderWatchSCAN()
Catch ex As Exception
ShowErrorMessage(ex)
End Try
@@ -757,7 +755,7 @@ Public Class frmFlowForm
ShowErrorMessage(ex)
End Try
End Sub
Sub Start_Folderwatch()
Sub Folderwatch_CheckFiles()
If My.Application.Globix.CurrentFolderWatchPath = String.Empty Then
My.Application.Globix.Folderwatchstarted = False
End If