Jobs: add filename property MD5HashException, Add meaningful message to MissingValueException

This commit is contained in:
Jonathan Jenne 2023-09-01 13:44:00 +02:00
parent b604ffcba2
commit 4c8bdb27fd

View File

@ -9,7 +9,7 @@ Public Class Exceptions
Public ReadOnly File As FileInfo
Public Sub New(File As FileInfo)
MyBase.New()
MyBase.New($"Missing values in [{File.Name}]")
Me.File = File
End Sub
@ -73,8 +73,11 @@ Public Class Exceptions
Public Class MD5HashException
Inherits ApplicationException
Public Sub New(pInfo As String)
MyBase.New(pInfo)
Public ReadOnly FileName As String
Public Sub New(pMessage As String, pFileName As String)
MyBase.New(pMessage)
FileName = pFileName
End Sub
End Class
End Class