21 lines
472 B
VB.net
21 lines
472 B
VB.net
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
|