fix zugferd service

Modules.Filesystem/File.vb

@@ -64,6 +64,7 @@ Public Class File
                 Dim oVersion As Integer = 1
                 Try
                     oVersion = Integer.Parse(oSplitFilename.Last())
+                    oFileNameWithoutExtension = String.Join("", oSplitFilename.Take(oSplitFilename.Count - 1))
                 Catch ex As Exception
                     ' oFilenameWithoutExtension does NOT change
                     oFileNameWithoutExtension = oFileNameWithoutExtension
@@ -72,7 +73,6 @@ Public Class File
                 End Try
             Else
                 oFileVersion = 1
-                oFileNameWithoutExtension = String.Join(String.Empty, oSplitFilename.Take(oSplitFilename.Count - 1))
             End If
 
             ' while file exists, increment version