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

Include new Messagebox for important messages

Browse Source
This commit is contained in:
Jonathan Jenne
2022-06-07 11:17:13 +02:00
parent 271a3d1157
commit 97a2f6815c
5 changed files with 31 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
Global_Indexer/frmStart.vb
View File

@@ -7,6 +7,7 @@ Imports System.Runtime.InteropServices
Imports DigitalData.Modules.Language
Imports DigitalData.Modules.Windows
Imports DigitalData.Modules.License
Imports DigitalData.GUIs.Common
Public Class frmStart
Public LicenseManager As LicenseManagerLegacy
@@ -16,6 +17,7 @@ Public Class frmStart
Private FileDrop As FileDrop
Private DroppedFiles As List(Of FileDrop.DroppedFile)
Private FormHelper As FormHelper
'Private DroppedFiles As List(Of FileDrop.DroppedFile)
@@ -37,7 +39,7 @@ Public Class frmStart
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
FormHelper = New FormHelper(LOGCONFIG, Me)
End Sub
#Region "=== FORM EVENTS ==="
@@ -212,7 +214,7 @@ Public Class frmStart
Dim oDropType = oDroppedFile.DropType
Dim oFileName = oDroppedFile.FilePath
If ClassIndexFunctions.CheckDuplicateFiles(oFileName, "Manuelle Ablage", oDropType) Then
If ClassIndexFunctions.CheckDuplicateFiles(Me, oFileName, "Manuelle Ablage", oDropType) Then
FILE_HANDLER.Decide_FileHandle(oFileName, oDropType)
End If
Next
@@ -418,7 +420,7 @@ Public Class frmStart
'Die Datei übergeben
LOGGER.Info(">> Adding file from Scanfolder after startup:" & oFileName)
If ClassIndexFunctions.CheckDuplicateFiles(oFileName, "FolderWatch/Scan") Then
If ClassIndexFunctions.CheckDuplicateFiles(Me, oFileName, "FolderWatch/Scan") Then
FILE_HANDLER.Decide_FileHandle(oFileName, oHandleType)
End If
Next oFileName
@@ -454,7 +456,7 @@ Public Class frmStart
'Die Datei übergeben
LOGGER.Info(">> Adding file from Folderwatch after startup:" & oFileName)
If ClassIndexFunctions.CheckDuplicateFiles(oFileName, "FolderWatch/Scan") Then
If ClassIndexFunctions.CheckDuplicateFiles(Me, oFileName, "FolderWatch/Scan") Then
FILE_HANDLER.Decide_FileHandle(oFileName, handleType)
End If
Next oFileName