ZUGFeRD Job: add versioning of moved files

Filesystem/File.vb

@@ -96,6 +96,11 @@ Public Class File
         IO.File.Move(FilePath, Path.Combine(Directory, oFileInfo.Name))
     End Sub
 
+    Public Sub MoveTo(FilePath As String, NewFileName As String, Directory As String)
+        Dim oFileInfo As New FileInfo(FilePath)
+        IO.File.Move(FilePath, Path.Combine(Directory, NewFileName))
+    End Sub
+
     ''' <summary>
     ''' Tries to create a directory and returns its path.
     ''' Returns a temp path if `DirectoryPath` can not be created or written to.