EDMI: Add Testing to EDMIBenchmark, Add ListFiles to EDMIService

Service.EDMIService/Messages.vb

@@ -1,7 +1,27 @@
 Imports System.IO
+Imports System.Runtime.Serialization
 Imports System.ServiceModel
 
 Namespace Messages
+    <Serializable>
+    <DataContract>
+    <KnownType(GetType(DBNull))>
+    Public MustInherit Class BaseResponse
+        <DataMember>
+        Public Property OK As Boolean
+        <DataMember>
+        Public Property ErrorMessage As String
+
+        Public Sub New()
+            OK = True
+        End Sub
+
+        Public Sub New(ErrorMessage As String)
+            OK = False
+            Me.ErrorMessage = ErrorMessage
+        End Sub
+    End Class
+
     <MessageContract>
     Public Class DocumentStreamRequest
         <MessageBodyMember>
@@ -16,6 +36,13 @@ Namespace Messages
         <MessageBodyMember(Order:=1)>
         Public FileContents As Stream
     End Class
+
+    Public Class DocumentListResponse
+        Inherits BaseResponse
+
+        Public Datatable As DataTable
+    End Class
+
 End Namespace