edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

pfad

Browse Source
This commit is contained in:
Andreas Luxbauer
2026-09-23 11:38:13 +02:00
parent 1e4ca873b6
commit 7be9708ede
1 changed files with 22 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
VERAG_PROG_ALLGEMEIN/cAllgemein.vb
View File

@@ -171,13 +171,15 @@ Public Class cAllgemein
End Sub End Sub
Public Shared Sub LOAD_CHAT_EMOJIS() Public Shared Sub LOAD_CHAT_EMOJIS()
Try
If System.IO.Directory.Exists(DATENVERVER_OPTIONS.getRootDir & "\DOKUMENTE\CHAT_EMOJIS\") Then
Dim EMOJI_SOURCEPATH = DATENVERVER_OPTIONS.getRootDir & "\DOKUMENTE\CHAT_EMOJIS\" Dim EMOJI_SOURCEPATH = DATENVERVER_OPTIONS.getRootDir & "\DOKUMENTE\CHAT_EMOJIS\"
Dim EMOJI_SOURCELIST = System.IO.Directory.GetFiles(EMOJI_SOURCEPATH).ToList Dim EMOJI_SOURCELIST = System.IO.Directory.GetFiles(EMOJI_SOURCEPATH).ToList
EMOJI_PATH = System.IO.Path.GetFullPath(My.Application.Info.DirectoryPath & "\Resources\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 If Not System.IO.Directory.Exists(EMOJI_PATH) Then
System.IO.Directory.CreateDirectory(EMOJI_PATH) System.IO.Directory.CreateDirectory(EMOJI_PATH)
End If End If
@@ -196,7 +198,9 @@ Public Class cAllgemein
fi.CopyTo(EMOJI_PATH & fi.Name, False) fi.CopyTo(EMOJI_PATH & fi.Name, False)
Next Next
Else
MsgBox("Fehler: Chat-Emojis Verzeichnis existiert nicht!")
End If
Catch ex As Exception Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)