Private Function AppendPage(ByVal sourceFile As String, ByVal newPage As String) As Boolean
Dim tif As New Vintasoft.Imaging.Codecs.Tiff.TiffFile(sourceFile)
Try
tif.Pages.Add(New VintasoftImage(newPage))
tif.SaveChanges()
Catch ex As Exception
Throw
End Try
Return True
End Function
' Subsequent delete generates the error:
IO.File.Delete(newPage)
Private Function AppendPage(ByVal sourceFile As String, ByVal newPage As String) As Boolean
Using tif As New Vintasoft.Imaging.Codecs.Tiff.TiffFile(sourceFile)
Try
Using image As VintasoftImage = New VintasoftImage(newPage)
tif.Pages.Add(image)
tif.SaveChanges()
End Using
Catch ex As Exception
Throw
End Try
End Using
Return True
End Function