ZooFlow: Include Globix fixes

GUIs.ZooFlow/Globix/ClassFilehandle.vb

@@ -23,6 +23,33 @@ Public Class ClassFilehandle
         Dim r = New Regex(String.Format("[{0}]", Regex.Escape(regexSearch)))
         Return r.Replace(Input, replacement)
     End Function
+    Public Function CheckDuplicateFiles(Filepath As String, ModuleTitle As String)
+        Dim oFileInfo As New FileInfo(Filepath)
+        Dim oFilename As String = oFileInfo.Name
+        Dim oFileExists As Date = ClassHelpers.FileExistsinDropTable(Filepath)
+
+        If oFileExists.Equals(Date.MinValue) Then
+            Return True
+        Else
+            Dim oResult As DialogResult
+            Dim oDate As String = oFileExists.ToString("d")
+            Dim oBoxTitle = $"GLOBIX - {ModuleTitle}"
+            Dim oBoxOptions = MsgBoxStyle.Question Or MsgBoxStyle.YesNo
+
+            If My.Application.User.Language = "de-DE" Then
+                oResult = MsgBox($"Die Datei [{oFilename}] wurde bereits am [{oDate}] verarbeitet. Wollen Sie die gleiche Datei noch einmal verarbeiten?", oBoxOptions, oBoxTitle)
+            Else
+                oResult = MsgBox($"The file [{oFilename}] has already been processed at [{oDate}]. Do you want to process the same file again?", oBoxOptions, oBoxTitle)
+            End If
+
+            If oResult = DialogResult.Yes Then
+                Return True
+            End If
+        End If
+
+        Return False
+    End Function
+
     Public Function Decide_FileHandle(filename As String, handletype As String) As Boolean
         Try
             If filename.EndsWith(".msg") Then