EDMI: First version of Updating files by replacing them!

Modules.Filesystem/File.vb

@@ -352,11 +352,13 @@ Public Class File
     ''' </remarks>
     Public Function TestFileIsLocked(pFilePath As String) As Boolean
         Try
-            Using stream As FileStream = IO.File.Open(FileMode.Open, FileAccess.Read, FileShare.None)
+            Using stream As FileStream = IO.File.Open(pFilePath, FileMode.Open, FileAccess.Read, FileShare.None)
                 stream.Close()
             End Using
         Catch ex As Exception When ((ex.HResult And &HFFFF) = 32)
             Return True
+        Catch ex As Exception
+            Return True
         End Try
 
         Return False
@@ -409,4 +411,13 @@ Public Class File
         Return $"{pBaseString}-{pSuffix}.{pExtension}"
     End Function
 
+    Public Function GetFilenameWithPrefix(pFilePath As String, pPrefix As String)
+        Dim oFileInfo = New IO.FileInfo(pFilePath)
+        Return GetFilenameWithSuffix(IO.Path.GetFileNameWithoutExtension(pFilePath), pPrefix, oFileInfo.Extension.Substring(1))
+    End Function
+
+    Public Function GetFilenameWithPrefix(pBaseString As String, pPrefix As String, pExtension As String)
+        Return $"{pPrefix}-{pBaseString}.{pExtension}"
+    End Function
+
 End Class