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

MS Folderwatch ColumnName instead index

Browse Source
This commit is contained in:
SchreiberM 2024-06-11 16:58:14 +02:00
parent d2a8464f3e
commit e5a0734b24
2 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Global_Indexer/My Project/AssemblyInfo.vb
View File

@ -15,7 +15,7 @@ Imports System.Runtime.InteropServices
<Assembly: AssemblyCompany("Digital Data")>
<Assembly: AssemblyProduct("File Flow")>
<Assembly: AssemblyCopyright("Copyright © 2024")>
<Assembly: AssemblyTrademark("2.6.7.1")>
<Assembly: AssemblyTrademark("2.6.8.2")>
<Assembly: ComVisible(False)>
@ -33,7 +33,7 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("2.6.7.2")>
<Assembly: AssemblyVersion("2.6.8.2")>
<Assembly: AssemblyFileVersion("1.0.0.0")>
<Assembly: NeutralResourcesLanguageAttribute("")>

12
Global_Indexer/frmStart.vb
View File

@ -520,12 +520,12 @@ Public Class frmStart
MsgBox("DEBUG - Check TBGI_FILES_USER if necessary. Command copied to Clipboard")
End If
For Each row As DataRow In DTACTUAL_FILES.Rows
Dim FILEGUID = row.Item("GUID")
For Each oRow As DataRow In DTACTUAL_FILES.Rows
Dim FILEGUID = oRow.Item("GUID")
If ABORT_INDEXING = True Then
Exit For
End If
Dim FileForWork As String = row.Item(1)
Dim FileForWork As String = oRow.Item("FILENAME2WORK")
LOGGER.Info(">> In Timer Folderwatch - File: " & FileForWork)
Dim fileInUse As Boolean = FILE_HANDLER.IsFileInUse(FileForWork)
Dim fileexists As Boolean = System.IO.File.Exists(FileForWork)
@ -533,8 +533,8 @@ Public Class frmStart
If fileexists = True Then
CURRENT_FILENAME = FileForWork
CURRENT_WORKFILE = FileForWork
CURRENT_WORKFILE_GUID = row.Item("GUID")
CURRENT_WORKFILE_HASH = row.Item("FILE_HASH")
CURRENT_WORKFILE_GUID = oRow.Item("GUID")
CURRENT_WORKFILE_HASH = oRow.Item("FILE_HASH")
Open_IndexDialog()
Else
@ -543,7 +543,7 @@ Public Class frmStart
DATABASE_ECM.ExecuteNonQuery(del)
End If
Else
LOGGER.Info(">> file '" & row.Item(1) & "' could not be opened exclusively - fileInUse!")
LOGGER.Info(">> file '" & FileForWork & "' could not be opened exclusively - fileInUse!")
End If
Next