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