EDMIService: Send extension with GetFileObject

Service.EDMIService/Methods/GetFileObject/GetFileObjectMethod.vb

@@ -27,11 +27,13 @@ Namespace Methods.GetFileObject
                 Dim oRow As DataRow = oTable.First()
                 Dim oFileHash As String = oRow.ItemEx("FILE_HASH", "")
                 Dim oFileSize As Long = oRow.ItemEx(Of Long)("FILE_SIZE", 0)
+                Dim oFileExtension As String = oRow.ItemEx(Of String)("EXTENSION")
 
                 Dim oFileObject As New FileObject With {
                     .ObjectId = pData.ObjectId,
                     .FileHash = oFileHash,
-                    .FileSize = oFileSize
+                    .FileSize = oFileSize,
+                    .FileExtension = oFileExtension
                 }
 
                 If pData.LoadFileContents = True Then