diff --git a/Jobs/Exceptions.vb b/Jobs/Exceptions.vb index 03038289..b853a713 100644 --- a/Jobs/Exceptions.vb +++ b/Jobs/Exceptions.vb @@ -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