MS2

app/DD-Record-Organiser/ClassHelper.vb

@@ -79,4 +79,17 @@ Public Class ClassHelper
         End Try
 
     End Function
+    '' <summary>
+    ''' Ersetzt alle nicht zulässigen Zeichen im angegebenen Dateinamen
+    ''' </summary>
+    ''' <param name="sFilename">Dateiname ohne Pfadangabe</param>
+    ''' <param name="sChar">Ersatzzeichen für alle unzulässigen Zeichen 
+    ''' im Dateinamen</param>
+    Public Shared Function CleanFilename(ByVal sFilename As String, _
+      Optional ByVal REPLACEChar As String = "") As String
+
+        ' alle nicht zulässigen Zeichen ersetzen
+        Return System.Text.RegularExpressions.Regex.Replace( _
+          sFilename, "[?*^""<>|]", REPLACEChar)
+    End Function
 End Class