23 lines
490 B
VB.net
23 lines
490 B
VB.net
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
|