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

ZooFlow: IDB Admin

Browse Source
This commit is contained in:
Jonathan Jenne
2021-03-08 15:34:57 +01:00
parent 526c9c349a
commit 6b814b9089
24 changed files with 835 additions and 2519 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
GUIs.ZooFlow/frmFlowForm.vb
View File

@@ -819,7 +819,7 @@ Public Class frmFlowForm
If My.Application.Globix.ABORT_INDEXING = True Then
Exit For
End If
Dim FileForWork As String = row.Item(1)
Dim FileForWork As String = row.Item(1).ToString
Logger.Info(" In Timer Folderwatch - File: " & FileForWork)
Dim fileInUse As Boolean = FileHandle.IsFileInUse(FileForWork)
Dim fileexists As Boolean = System.IO.File.Exists(FileForWork)
@@ -827,7 +827,7 @@ Public Class frmFlowForm
If fileexists = True Then
My.Application.Globix.CURRENT_WORKFILE = FileForWork
My.Application.Globix.CURRENT_FILENAME = FileForWork
My.Application.Globix.CURRENT_WORKFILE_GUID = row.Item("GUID")
My.Application.Globix.CURRENT_WORKFILE_GUID = DirectCast(row.Item("GUID"), Integer)
Globix_Open_IndexDialog()
Else
Logger.Info(" File not existing - Row will be deleted!")
@@ -835,7 +835,7 @@ Public Class frmFlowForm
My.Database.ExecuteNonQuery(oDel)
End If
Else
Logger.Info(" file '" & row.Item(1) & "' could not be opened exclusively - fileInUse!")
Logger.Info(" file '" & row.Item(1).ToString & "' could not be opened exclusively - fileInUse!")
End If
Next