AppStd/Modules
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Jonathan Jenne 2023-09-01 13:44:00 +02:00
parent b604ffcba2
commit 4c8bdb27fd
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
Jobs/Exceptions.vb
View File

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