MS

GUIs.ZooFlow/Modules/Globix/ClassFilehandle.vb

@@ -54,11 +54,7 @@ Public Class ClassFilehandle
 
             'Dim oBoxOptions = MsgBoxStyle.Question Or MsgBoxStyle.YesNo
             ofrmDuplicate.ShowDialog()
-            '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 ofrmDuplicate.DialogResult = DialogResult.Yes Then
                 Return True
@@ -124,11 +120,14 @@ Public Class ClassFilehandle
             End If
 
             If oTempFilePath.ToUpper.EndsWith(".LNK") Then
+                Dim oMSG As String
                 If My.Application.User.Language = "de-DE" Then
-                    MsgBox("Verknüpfungen können nicht abgelegt werden!", MsgBoxStyle.Critical, "Global Indexer")
+                    oMSG = "Verknüpfungen können nicht abgelegt werden!"
                 Else
-                    MsgBox("Shortcuts cannot be droppped!", MsgBoxStyle.Critical, "Global Indexer")
+                    oMSG = "Shortcuts cannot be droppped!"
                 End If
+                Dim oMsgBox As New Dialog1(oMSG, "", True)
+                oMsgBox.ShowDialog()
                 Return False
             End If