MS Remove Chat

GUIs.Test.EDMIBenchmark/Form1.vb

@@ -36,6 +36,7 @@ Public Class Form1
             .CheckFileExists = True
         }
         Dim oResult = oDialog.ShowDialog()
+        listboxFiles.Items.Clear()
 
         If oResult = DialogResult.OK Then
             For Each oFileName In oDialog.FileNames
@@ -49,7 +50,7 @@ Public Class Form1
             Dim oFiles As New List(Of String)
             Dim oSWTotal As New Stopwatch()
             oSWTotal.Start()
-
+            Dim oCountFiles As Integer = 0
             For Each oItem As String In listboxFiles.Items
                 Dim oSW As New Stopwatch()
                 oSW.Start()
@@ -60,13 +61,15 @@ Public Class Form1
 
                 Dim oObjectId As Long = Await _Client.ImportFileAsync(oFileInfo.FullName, "WichtigesDokument", 1, 0)
                 AddLogMessage($"File with Id [{oObjectId}] imported!")
+                oCountFiles += 1
                 oSW.Stop()
                 AddLogMessage($"Import Time: {FormatTime(oSW.ElapsedMilliseconds)}")
                 AddLogMessage("")
             Next
 
             oSWTotal.Stop()
-            AddLogMessage($"Total Time: {FormatTime(oSWTotal.ElapsedMilliseconds)}")
+            AddLogMessage($"Imported {oCountFiles} files - Total Time: {FormatTime(oSWTotal.ElapsedMilliseconds)}")
+            MsgBox($"Imported {oCountFiles} files - Total Time: {FormatTime(oSWTotal.ElapsedMilliseconds)}", MsgBoxStyle.Information)
         Catch ex As Exception
             MsgBox(ex.Message, MsgBoxStyle.Critical, Text)
         End Try