diff --git a/Global_Indexer/ClassEmailHeaderExtractor.vb b/Global_Indexer/ClassEmailHeaderExtractor.vb
index 6dcad1d..93164fa 100644
--- a/Global_Indexer/ClassEmailHeaderExtractor.vb
+++ b/Global_Indexer/ClassEmailHeaderExtractor.vb
@@ -24,7 +24,7 @@ Public Class ClassEmailHeaderExtractor
''' Headerinformationen als String oder Nothing wenn ein Fehler aufgetreten ist.
Public Shared Function getMessageHeaders(msg As Msg.Message)
Try
- Dim headers = msg.TransportMessageHeaders.Replace(vbCrLf, " ")
+ Dim headers = msg.TransportMessageHeaders?.Replace(vbCrLf, " ")
Return headers
Catch ex As Exception
Return Nothing
diff --git a/Global_Indexer/ClassFilehandle.vb b/Global_Indexer/ClassFilehandle.vb
index 1b56704..7378cb0 100644
--- a/Global_Indexer/ClassFilehandle.vb
+++ b/Global_Indexer/ClassFilehandle.vb
@@ -154,17 +154,14 @@ Public Class ClassFilehandle
Try
filename = filename.Replace("'", "''")
- Dim oHash As String
+ Dim oHash As String = String.Empty
If File.Exists(filename) Then
- Try
+ If filename.ToUpper.EndsWith(".MSG") And (handleType = "|OUTLOOK_MESSAGE|" Or handleType = "|MSGONLY|") Then
+ oHash = FILESYSTEM.GetChecksumFromString(filename)
+ Else
oHash = FILESYSTEM.GetChecksum(filename)
- Catch ex As Exception
- LOGGER.Error(ex)
- oHash = String.Empty
- End Try
- Else
- oHash = String.Empty
+ End If
End If
Dim filename_only As String = Path.GetFileName(filename)
diff --git a/Global_Indexer/ClassIndexFunctions.vb b/Global_Indexer/ClassIndexFunctions.vb
index ccd7da2..b8fa9eb 100644
--- a/Global_Indexer/ClassIndexFunctions.vb
+++ b/Global_Indexer/ClassIndexFunctions.vb
@@ -10,7 +10,7 @@ Public Class ClassIndexFunctions
pFilename = pFilename.Replace("'", "''")
End If
- If pFilename.ToUpper.EndsWith(".MSG") And pHandleType = "|OUTLOOK_MESSAGE|" Then
+ If pFilename.ToUpper.EndsWith(".MSG") And (pHandleType = "|OUTLOOK_MESSAGE|" Or pHandleType = "|MSGONLY|") Then
' MSG Files cannot be hashed based on filecontents, so we use the filename instead
oHash = FILESYSTEM.GetChecksumFromString(pFilename)
Else
@@ -24,31 +24,31 @@ Public Class ClassIndexFunctions
Return Nothing
End If
- oSQL = "SELECT * FROM TBGI_FILES_USER WHERE UPPER(FILE_HASH) = UPPER('" & oHash & "') AND WORKED = 0 ORDER BY ADDED_WHEN"
- Dim oResult As DataTable = ClassDatabase.Return_Datatable_CS(oSQL, MyConnectionString, True)
+ 'oSQL = "SELECT * FROM TBGI_FILES_USER WHERE UPPER(FILE_HASH) = UPPER('" & oHash & "') AND WORKED = 0 ORDER BY ADDED_WHEN"
+ 'Dim oResult As DataTable = ClassDatabase.Return_Datatable_CS(oSQL, MyConnectionString, True)
+
+ 'If oResult Is Nothing Then
+ 'Return Nothing
+ 'End If
+
+ 'If oResult.Rows.Count = 0 Then
+ oSQL = "SELECT * FROM TBGI_HISTORY WHERE UPPER(FILE_HASH) = UPPER('" & oHash & "') ORDER BY ADDED_WHEN"
+ Dim oResult = ClassDatabase.Return_Datatable_CS(oSQL, MyConnectionString, True)
If oResult Is Nothing Then
Return Nothing
End If
If oResult.Rows.Count = 0 Then
- oSQL = "SELECT * FROM TBGI_HISTORY WHERE UPPER(FILE_HASH) = UPPER('" & oHash & "') ORDER BY ADDED_WHEN"
- oResult = ClassDatabase.Return_Datatable_CS(oSQL, MyConnectionString, True)
-
- If oResult Is Nothing Then
- Return Nothing
- End If
-
- If oResult.Rows.Count = 0 Then
- Return Nothing
- Else
- Dim oFirstRow As DataRow = oResult.Rows.Item(0)
- Return oFirstRow.Item("ADDED_WHEN")
- End If
+ Return Nothing
Else
Dim oFirstRow As DataRow = oResult.Rows.Item(0)
Return oFirstRow.Item("ADDED_WHEN")
End If
+ 'Else
+ 'Dim oFirstRow As DataRow = oResult.Rows.Item(0)
+ 'Return oFirstRow.Item("ADDED_WHEN")
+ 'End If
Catch ex As Exception
MsgBox("Error in FileExistsinDropTable - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & oSQL, MsgBoxStyle.Critical)
Return Nothing
diff --git a/Global_Indexer/MyDataset.Designer.vb b/Global_Indexer/MyDataset.Designer.vb
index fc5c7cd..e2143ff 100644
--- a/Global_Indexer/MyDataset.Designer.vb
+++ b/Global_Indexer/MyDataset.Designer.vb
@@ -7784,6 +7784,8 @@ Partial Public Class MyDataset
Private columnFILENAME_ONLY As Global.System.Data.DataColumn
+ Private columnFILE_HASH As Global.System.Data.DataColumn
+
_
Public Sub New()
@@ -7883,6 +7885,14 @@ Partial Public Class MyDataset
End Get
End Property
+ _
+ Public ReadOnly Property FILE_HASHColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnFILE_HASH
+ End Get
+ End Property
+
_
@@ -7920,9 +7930,9 @@ Partial Public Class MyDataset
_
- Public Overloads Function AddTBGI_FILES_USERRow(ByVal FILENAME2WORK As String, ByVal _USER_WORK As String, ByVal WORKED As Boolean, ByVal ADDED_WHEN As Date, ByVal HANDLE_TYPE As String, ByVal Delete As Boolean, ByVal FILENAME_ONLY As String) As TBGI_FILES_USERRow
+ Public Overloads Function AddTBGI_FILES_USERRow(ByVal FILENAME2WORK As String, ByVal _USER_WORK As String, ByVal WORKED As Boolean, ByVal ADDED_WHEN As Date, ByVal HANDLE_TYPE As String, ByVal Delete As Boolean, ByVal FILENAME_ONLY As String, ByVal FILE_HASH As String) As TBGI_FILES_USERRow
Dim rowTBGI_FILES_USERRow As TBGI_FILES_USERRow = CType(Me.NewRow,TBGI_FILES_USERRow)
- Dim columnValuesArray() As Object = New Object() {Nothing, FILENAME2WORK, _USER_WORK, WORKED, ADDED_WHEN, HANDLE_TYPE, Delete, FILENAME_ONLY}
+ Dim columnValuesArray() As Object = New Object() {Nothing, FILENAME2WORK, _USER_WORK, WORKED, ADDED_WHEN, HANDLE_TYPE, Delete, FILENAME_ONLY, FILE_HASH}
rowTBGI_FILES_USERRow.ItemArray = columnValuesArray
Me.Rows.Add(rowTBGI_FILES_USERRow)
Return rowTBGI_FILES_USERRow
@@ -7959,6 +7969,7 @@ Partial Public Class MyDataset
Me.columnHANDLE_TYPE = MyBase.Columns("HANDLE_TYPE")
Me.columnDelete = MyBase.Columns("Delete")
Me.columnFILENAME_ONLY = MyBase.Columns("FILENAME_ONLY")
+ Me.columnFILE_HASH = MyBase.Columns("FILE_HASH")
End Sub
_
Public Property HANDLE_TYPE() As String
Get
- Try
- Return CType(Me(Me.tableTBGI_FILES_USER.HANDLE_TYPEColumn),String)
- Catch e As Global.System.InvalidCastException
- Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte HANDLE_TYPE in Tabelle TBGI_FILES_USER ist DBNull.", e)
- End Try
+ Return CType(Me(Me.tableTBGI_FILES_USER.HANDLE_TYPEColumn),String)
End Get
Set
Me(Me.tableTBGI_FILES_USER.HANDLE_TYPEColumn) = value
@@ -13560,15 +13570,18 @@ Partial Public Class MyDataset
_
- Public Function IsHANDLE_TYPENull() As Boolean
- Return Me.IsNull(Me.tableTBGI_FILES_USER.HANDLE_TYPEColumn)
- End Function
-
- _
- Public Sub SetHANDLE_TYPENull()
- Me(Me.tableTBGI_FILES_USER.HANDLE_TYPEColumn) = Global.System.Convert.DBNull
- End Sub
+ Public Property FILE_HASH() As String
+ Get
+ Try
+ Return CType(Me(Me.tableTBGI_FILES_USER.FILE_HASHColumn),String)
+ Catch e As Global.System.InvalidCastException
+ Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FILE_HASH in Tabelle TBGI_FILES_USER ist DBNull.", e)
+ End Try
+ End Get
+ Set
+ Me(Me.tableTBGI_FILES_USER.FILE_HASHColumn) = value
+ End Set
+ End Property
_
@@ -13581,6 +13594,18 @@ Partial Public Class MyDataset
Public Sub SetDeleteNull()
Me(Me.tableTBGI_FILES_USER.DeleteColumn) = Global.System.Convert.DBNull
End Sub
+
+ _
+ Public Function IsFILE_HASHNull() As Boolean
+ Return Me.IsNull(Me.tableTBGI_FILES_USER.FILE_HASHColumn)
+ End Function
+
+ _
+ Public Sub SetFILE_HASHNull()
+ Me(Me.tableTBGI_FILES_USER.FILE_HASHColumn) = Global.System.Convert.DBNull
+ End Sub
End Class
'''
@@ -20697,6 +20722,7 @@ Namespace MyDatasetTableAdapters
tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN")
tableMapping.ColumnMappings.Add("HANDLE_TYPE", "HANDLE_TYPE")
tableMapping.ColumnMappings.Add("FILENAME_ONLY", "FILENAME_ONLY")
+ tableMapping.ColumnMappings.Add("FILE_HASH", "FILE_HASH")
Me._adapter.TableMappings.Add(tableMapping)
End Sub
@@ -20714,8 +20740,8 @@ Namespace MyDatasetTableAdapters
Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
Me._commandCollection(0).Connection = Me.Connection
Me._commandCollection(0).CommandText = "SELECT GUID, FILENAME2WORK, USER@WORK, WORKED, ADDED_WHEN, HANDLE_TYPE, FI"& _
- "LENAME_ONLY"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBGI_FILES_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (WORKED = 0) AND (UPP"& _
- "ER(USER@WORK) = UPPER(@USERNAME))"
+ "LENAME_ONLY, FILE_HASH"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBGI_FILES_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (WORKED = "& _
+ "0) AND (UPPER(USER@WORK) = UPPER(@USERNAME))"
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
End Sub
diff --git a/Global_Indexer/MyDataset.xsd b/Global_Indexer/MyDataset.xsd
index 1a5bbe4..8927247 100644
--- a/Global_Indexer/MyDataset.xsd
+++ b/Global_Indexer/MyDataset.xsd
@@ -1089,10 +1089,10 @@ WHERE (USER_ID = @USER_ID) ORDER BY NAME
-
+
- SELECT GUID, FILENAME2WORK, USER@WORK, WORKED, ADDED_WHEN, HANDLE_TYPE, FILENAME_ONLY
+ SELECT GUID, FILENAME2WORK, USER@WORK, WORKED, ADDED_WHEN, HANDLE_TYPE, FILENAME_ONLY, FILE_HASH
FROM TBGI_FILES_USER
WHERE (WORKED = 0) AND (UPPER(USER@WORK) = UPPER(@USERNAME))
@@ -1110,6 +1110,7 @@ WHERE (WORKED = 0) AND (UPPER(USER@WORK) = UPPER(@USERNAME))
+
@@ -1225,7 +1226,7 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN
-
+
@@ -1290,7 +1291,7 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN
-
+
@@ -1373,7 +1374,7 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN
-
+
@@ -1410,7 +1411,7 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN
-
+
@@ -1424,7 +1425,7 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN
-
+
@@ -1438,7 +1439,7 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN
-
+
@@ -1520,7 +1521,7 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN
-
+
@@ -1593,7 +1594,7 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN
-
+
@@ -1706,7 +1707,7 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN
-
+
@@ -1803,7 +1804,7 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN
-
+
@@ -1859,7 +1860,7 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN
-
+
@@ -1867,7 +1868,7 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN
-
+
@@ -1917,7 +1918,7 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN
-
+
@@ -1989,7 +1990,7 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN
-
+
@@ -2070,7 +2071,7 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN
-
+
@@ -2084,7 +2085,7 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN
-
+
@@ -2093,7 +2094,7 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN
-
+
@@ -2118,7 +2119,7 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN
-
+
@@ -2157,7 +2158,7 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN
-
+
@@ -2177,7 +2178,7 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN
-
+
@@ -2192,10 +2193,11 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN
+
-
+
@@ -2217,7 +2219,7 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN
-
+
@@ -2229,7 +2231,7 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN
-
+
@@ -2345,14 +2347,14 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
\ No newline at end of file
diff --git a/Global_Indexer/MyDataset.xss b/Global_Indexer/MyDataset.xss
index 2cbdd11..732268e 100644
--- a/Global_Indexer/MyDataset.xss
+++ b/Global_Indexer/MyDataset.xss
@@ -4,30 +4,30 @@
Changes to this file may cause incorrect behavior and will be lost if
the code is regenerated.
-->
-
+
-
-
+
+
-
+
-
+
-
+
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
-
+
@@ -118,7 +118,7 @@
-
+
380
diff --git a/Global_Indexer/frmIndex.vb b/Global_Indexer/frmIndex.vb
index de73679..ead9c3b 100644
--- a/Global_Indexer/frmIndex.vb
+++ b/Global_Indexer/frmIndex.vb
@@ -1656,7 +1656,15 @@ Public Class frmIndex
Dim oNewDestination = Path.Combine(WINDREAM.ClientBasePath, oNormalized)
If Directory.Exists(oDestination) = False Then
- MsgBox($"Profile Path [{oNewDestination}] is not available. Please select another profile.", MsgBoxStyle.Exclamation, Text)
+ Dim oMessage = ""
+
+ If USER_LANGUAGE = "de-DE" Then
+ oMessage = $"Der Pfad für das ausgewählte Profil ist nicht erreichbar:{vbNewLine}[{oNewDestination}].{vbNewLine}{vbNewLine}Bitte wählen Sie ein anderes Profil."
+ Else
+ oMessage = $"Profile Path is not available:{vbNewLine}[{oNewDestination}].{vbNewLine}{vbNewLine}Please select another profile."
+ End If
+
+ MsgBox(oMessage, MsgBoxStyle.Information, Text)
ComboboxDoctype.SelectedIndex = -1
Else
WDDirect = oDocType.Item("WINDREAM_DIRECT")
@@ -1666,30 +1674,6 @@ Public Class frmIndex
End If
End Sub
- 'Private Sub cmbDokumentart_SelectedIndexChanged(sender As System.Object, e As System.EventArgs)
- ' If cmbDokumentart.SelectedIndex <> -1 And FormLoaded = True Then
- ' If cmbDokumentart.SelectedValue.GetType.ToString = "System.Int32" Then
- ' CURRENT_DOKART_ID = cmbDokumentart.SelectedValue
-
- ' 'lblhinweis.Visible = False
- ' ClearNotice()
-
- ' 'lblerror.Visible = False
- ' ClearError()
-
-
- ' Me.pnlIndex.Controls.Clear()
- ' Dim sql As String = "Select WINDREAM_DIRECT, DUPLICATE_HANDLING from TBDD_DOKUMENTART WHERE GUID = " & cmbDokumentart.SelectedValue
- ' Dim oDoctypes As DataTable = ClassDatabase.Return_Datatable(sql)
-
- ' WDDirect = oDoctypes.Rows(0).Item("WINDREAM_DIRECT")
- ' CURRENT_DOKART_DUPLICATE_HANDLING = oDoctypes.Rows(0).Item("DUPLICATE_HANDLING")
- ' Refresh_IndexeMan(cmbDokumentart.SelectedValue)
- ' End If
-
- ' End If
- 'End Sub
- ' _
Private Sub Refresh_IndexeMan(dokartid As Integer)
Dim sql
Try
diff --git a/Global_Indexer/frmIndexFileList.vb b/Global_Indexer/frmIndexFileList.vb
index 3700535..bb05717 100644
--- a/Global_Indexer/frmIndexFileList.vb
+++ b/Global_Indexer/frmIndexFileList.vb
@@ -8,11 +8,36 @@ Public Class frmIndexFileList
Me.TBGI_FILES_USERTableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBGI_FILES_USERTableAdapter.Fill(Me.MyDataset1.TBGI_FILES_USER, Environment.UserName)
- If MyDataset1.TBGI_FILES_USER.Rows.Count > 0 Then
- CheckedListBoxControl1.DataSource = MyDataset1.TBGI_FILES_USER
- CheckedListBoxControl1.DisplayMember = MyDataset1.TBGI_FILES_USER.Columns("FILENAME_ONLY").ColumnName
- CheckedListBoxControl1.ValueMember = MyDataset1.TBGI_FILES_USER.Columns(0).ColumnName
- End If
+ 'If MyDataset1.TBGI_FILES_USER.Rows.Count > 0 Then
+ ' CheckedListBoxControl1.DataSource = MyDataset1.TBGI_FILES_USER
+ ' CheckedListBoxControl1.DisplayMember = MyDataset1.TBGI_FILES_USER.Columns("FILENAME_ONLY").ColumnName
+ ' CheckedListBoxControl1.ValueMember = MyDataset1.TBGI_FILES_USER.Columns(0).ColumnName
+ 'End If
+
+ CheckedListBoxControl1.DisplayMember = "FileName"
+ CheckedListBoxControl1.ValueMember = "FileName"
+ CheckedListBoxControl1.Items.Clear()
+
+ For Each oFile As DataRow In MyDataset1.TBGI_FILES_USER.Rows
+ Dim oFilename = oFile.Item("FILENAME_ONLY")
+ Dim oPath = oFile.Item("FILENAME2WORK")
+ Dim oHash = oFile.Item("FILE_HASH")
+ Dim oHandleType = oFile.Item("HANDLE_TYPE")
+
+ Dim oImportDate = ClassIndexFunctions.FileExistsinDropTable(oPath, oHandleType)
+ Dim oFileExists As Boolean = True
+
+ If oImportDate = DateTime.MinValue Then
+ oFileExists = False
+ End If
+
+ CheckedListBoxControl1.Items.Add(New SplitFile With {
+ .FileName = oFilename,
+ .Exists = oFileExists
+ })
+ Next
+
+
CheckedListBoxControl1.CheckAll()
@@ -22,6 +47,19 @@ Public Class frmIndexFileList
End Try
End Sub
+ Public Class SplitFile
+ Public FileName As String
+ Public Exists As Boolean
+
+ Public Overrides Function ToString() As String
+ If Exists Then
+ Return $"{FileName} (Achtung, existiert bereits!)"
+ Else
+ Return FileName
+ End If
+ End Function
+ End Class
+
Private Sub btnstartIndex_Click(sender As Object, e As EventArgs) Handles btnstartIndex.Click
Try
LOGGER.Debug("Starting indexing of {0} files", CheckedListBoxControl1.Items.Count - CheckedListBoxControl1.CheckedItems.Count)
diff --git a/Global_Indexer/frmStart.vb b/Global_Indexer/frmStart.vb
index fe3468b..3c9bc7a 100644
--- a/Global_Indexer/frmStart.vb
+++ b/Global_Indexer/frmStart.vb
@@ -199,9 +199,9 @@ Public Class frmStart
LOGGER.Debug("No files to be indexed, aborting!")
If USER_LANGUAGE = "de-DE" Then
- MsgBox("Es wurden keine Dateien für die Indexierung ausgewählt. Der Indexierungsvorgang wird beendet.", MsgBoxStyle.Information, Text)
+ MessageBox.Show("Es wurden keine Dateien für die Indexierung ausgewählt. Der Indexierungsvorgang wird beendet.", Text, MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1, MessageBoxOptions.DefaultDesktopOnly)
Else
- MsgBox("You did not select any files for indexing. Indexing will be stopped.", MsgBoxStyle.Information, Text)
+ MessageBox.Show("You did not select any files for indexing. Indexing will be stopped.", Text, MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1, MessageBoxOptions.DefaultDesktopOnly)
End If
End If