MDM, CHAT, MSE_API

VERAG_PROG_ALLGEMEIN/cAllgemein.vb

@@ -60,6 +60,7 @@ Public Class cAllgemein
     Public Shared SESSION As New cSession
     Public Shared _DummyCNT As Integer
     Public Shared EMailTOBB_Error As String = "info@verimextransit.com"
+    Public Shared EMOJI_PATH As String = ""
 
 
     Shared SQL As New SQL
@@ -133,6 +134,7 @@ Public Class cAllgemein
         LOAD_TRANSLATE_AUTO()
         LOAD_FIRMEN()
         LOAD_FILIALEN()
+        LOAD_CHAT_EMOJIS()
 
         Try 'DRUCKER LADEN
             Dim sPrinters As New ArrayList
@@ -154,6 +156,36 @@ Public Class cAllgemein
 
     End Sub
 
+    Public Shared Sub LOAD_CHAT_EMOJIS()
+
+        Dim EMOJI_SOURCEPATH = DATENVERVER_OPTIONS.getRootDir & "\DOKUMENTE\CHAT_EMOJIS\"
+
+        EMOJI_PATH = System.IO.Path.GetFullPath(My.Application.Info.DirectoryPath & "\Resources\CHAT_EMOJIS\")
+
+        Try
+            If Not System.IO.Directory.Exists(EMOJI_PATH) Then
+                System.IO.Directory.CreateDirectory(EMOJI_PATH)
+            End If
+
+
+            For Each f In System.IO.Directory.GetFiles(EMOJI_PATH)
+                System.IO.File.Delete(f)
+            Next
+
+
+            For Each f In System.IO.Directory.GetFiles(EMOJI_SOURCEPATH)
+                Dim fi As New System.IO.FileInfo(f)
+                fi.CopyTo(EMOJI_PATH & fi.Name, False)
+
+            Next
+
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+
+    End Sub
+
     Public Shared Sub LOAD_PROGRAMM()
         Dim prog_Name = My.Application.Info.ProductName