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

jj 07.06

Browse Source
This commit is contained in:
Jonathan Jenne 2017-06-07 17:11:37 +02:00
parent c443985fd4
commit 49187b95b2
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
Global_Indexer/frmIndex.vb
View File

@ -2405,7 +2405,12 @@ Public Class frmIndex
Next Next
Me.Cursor = Cursors.Default Me.Cursor = Cursors.Default
If err = False Then If err = False Then
MsgBox("Alle Dateien wurden mit Multiindexing erfolgreich verarbeitet!", MsgBoxStyle.Information, "Erfolgsmeldung:") If USER_LANGUAGE = "de-DE" Then
MsgBox("Alle Dateien wurden mit Multiindexing erfolgreich verarbeitet!", MsgBoxStyle.Information, "Erfolgsmeldung:")
Else
MsgBox("All files were successfully processed through Multiindexing", MsgBoxStyle.Information, "Success")
End If
DTACTUAL_FILES.Clear() DTACTUAL_FILES.Clear()
Me.Close() Me.Close()
End If End If
@ -2415,7 +2420,11 @@ Public Class frmIndex
If WORK_FILE() = True Then If WORK_FILE() = True Then
Me.Cursor = Cursors.Default Me.Cursor = Cursors.Default
If My.Settings.Show_IndexResult = True Then If My.Settings.Show_IndexResult = True Then
MsgBox("Die Datei wurde erfolgreich verarbeitet!" & vbNewLine & "Ablagepfad:" & vbNewLine & CURRENT_NEWFILENAME, MsgBoxStyle.Information, "Erfolgsmeldung") If USER_LANGUAGE = "de-DE" Then
MsgBox("Die Datei wurde erfolgreich verarbeitet!" & vbNewLine & "Ablagepfad:" & vbNewLine & CURRENT_NEWFILENAME, MsgBoxStyle.Information, "Erfolgsmeldung")
Else
MsgBox("File sucessfully processed!" & vbNewLine & "Path:" & vbNewLine & CURRENT_NEWFILENAME, MsgBoxStyle.Information, "Success")
End If
End If End If
Me.Close() Me.Close()