From 4c8bdb27fdd59623d73c7931d9d5aa5327d8888d Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Fri, 1 Sep 2023 13:44:00 +0200 Subject: [PATCH] Jobs: add filename property MD5HashException, Add meaningful message to MissingValueException --- Jobs/Exceptions.vb | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) 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