From fdc994e25fa1d9571a2fad880c7db20c6eac867b Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Thu, 29 Jul 2021 16:34:32 +0200 Subject: [PATCH] Filesystem: Improve GetCleanfilename to remove double dots and spaces --- Modules.Filesystem/File.vb | 2 ++ 1 file changed, 2 insertions(+) diff --git a/Modules.Filesystem/File.vb b/Modules.Filesystem/File.vb index 0573be64..bc4877d1 100644 --- a/Modules.Filesystem/File.vb +++ b/Modules.Filesystem/File.vb @@ -55,6 +55,8 @@ Public Class File Dim oCleanName As String = FileName oCleanName = Regex.Replace(oCleanName, _invalidFilenameChars, String.Empty) oCleanName = Regex.Replace(oCleanName, REGEX_CLEAN_FILENAME, String.Empty, RegexOptions.Singleline) + oCleanName = Regex.Replace(oCleanName, "\s{2,}", " ") + oCleanName = Regex.Replace(oCleanName, "\.{2,}", ".") _Logger.Debug("Filename after cleaning: [{0}]", oCleanName)