Imports System.Runtime.Serialization

Namespace FileStorage.NewFile
    <Serializable>
    <DataContract>
    Public Class NewFileResponse
        Inherits Messages.BaseResponse

        <DataMember>
        Public Property ObjectId As Long

        Public Sub New(pObjectId As Long)
            MyBase.New()
            ObjectId = pObjectId
        End Sub

        Public Sub New(pException As Exception)
            MyBase.New(pException)
        End Sub
    End Class

End Namespace