Imports DigitalData.Modules.Filesystem

<Serializable>
Public Class DocumentResult
    Public ReadOnly OK As Boolean
    Public ReadOnly ErrorMessage As String
    Public Document As DocumentObject
    Public HasContents As Boolean
    Public Contents As Byte()

    Public Sub New()
        OK = True
        ErrorMessage = Nothing
    End Sub

    Public Sub New(ErrorMessage As String)
        OK = False
        Me.ErrorMessage = ErrorMessage
    End Sub
End Class