11-08-2023

2023-08-11 09:45:34 +02:00
parent 3e41e5b469
commit 2579d7abdd
7 changed files with 74 additions and 38 deletions
--- a/Connectors.Form/Modules/BaseModule.vb
+++ b/Connectors.Form/Modules/BaseModule.vb
@@ -57,6 +57,13 @@ Public MustInherit Class BaseModule
        End If
    End Sub

+    Friend Function ConvertFilenameToSlug(pFileName As String) As String
+        Dim oName = Path.GetFileNameWithoutExtension(pFileName)
+        Dim oExtension = Path.GetExtension(pFileName)
+
+        Return StringEx.ConvertTextToSlug(oName) & oExtension
+    End Function
+
    Friend Function CopyFileToOutputPath(pFileContents As Byte(), pFilePath As String) As Boolean
        Try
            Using oStream As New MemoryStream(pFileContents)