Imports System.IO

Public Class Exceptions
    Public Class MissingValueException
        Inherits ApplicationException

        Public ReadOnly File As FileInfo

        Public Sub New(File As FileInfo)
            MyBase.New()

            Me.File = File
        End Sub
    End Class

    Public Class TooMuchFerdsException
        Inherits ApplicationException

        Public Sub New()
            MyBase.New("More than one ZUGFeRD document found")
        End Sub
    End Class

    Public Class NoFerdsException
        Inherits ApplicationException

        Public Sub New()
            MyBase.New("No ZUGFeRD documents found")
        End Sub
    End Class
End Class