Änderungen Rechnugen, Chat, cAllgemeint

VERAG_PROG_ALLGEMEIN/cAllgemein.vb

@@ -1,5 +1,6 @@
 Imports GrapeCity.ActiveReports
 Imports GrapeCity.ActiveReports.Document
+Imports System.ComponentModel
 Imports System.Data.SqlClient
 
 Public Class cAllgemein
@@ -159,6 +160,7 @@ Public Class cAllgemein
     Public Shared Sub LOAD_CHAT_EMOJIS()
 
         Dim EMOJI_SOURCEPATH = DATENVERVER_OPTIONS.getRootDir & "\DOKUMENTE\CHAT_EMOJIS\"
+        Dim EMOJI_SOURCELIST = System.IO.Directory.GetFiles(EMOJI_SOURCEPATH).ToList
 
         EMOJI_PATH = System.IO.Path.GetFullPath(My.Application.Info.DirectoryPath & "\Resources\CHAT_EMOJIS\")
 
@@ -169,9 +171,12 @@ Public Class cAllgemein
 
 
             For Each f In System.IO.Directory.GetFiles(EMOJI_PATH)
-                System.IO.File.Delete(f)
-            Next
+                Dim fi As New System.IO.FileInfo(f)
+                If Not System.IO.Directory.GetFiles(EMOJI_PATH).Any(Function(c) c.Equals(fi.Name, StringComparison.OrdinalIgnoreCase)) Then
+                    System.IO.File.Delete(f)
+                End If
 
+            Next
 
             For Each f In System.IO.Directory.GetFiles(EMOJI_SOURCEPATH)
                 Dim fi As New System.IO.FileInfo(f)