WIP: Streaming files from service to client

EDMI.File/Path.vb

@@ -16,26 +16,42 @@ Public Class Path
         _BasePath = DatastoreBasePath
     End Sub
 
-    Public Function GetActivePath(DocumentType As String, Optional FileName As String = "")
-        Dim oPathParts As New List(Of String) From {_BasePath, PATH_EDMI, PATH_ACTIVE}
-        oPathParts.AddRange(GetRelativePath(DocumentType, FileName))
+    Public Function GetActivePath(DocumentType As String, Optional FileName As String = "") As String
+        Dim oParts = New List(Of String) From {_BasePath, PATH_EDMI, PATH_ACTIVE}
+        oParts.AddRange(Do_GetRelativePath(DocumentType, FileName))
 
-        Return IO.Path.Combine(oPathParts.ToArray())
+        Return IO.Path.Combine(oParts.ToArray())
     End Function
 
-    Public Function GetArchivePath(DocumentType As String, Optional FileName As String = "")
-        Dim oPathParts As New List(Of String) From {_BasePath, PATH_EDMI, PATH_ARCHIVE}
-        oPathParts.AddRange(GetRelativePath(DocumentType, FileName))
-
-        Return IO.Path.Combine(oPathParts.ToArray())
+    Public Function GetActivePathFromRelativePath(RelativePath As String) As String
+        Dim oParts = New List(Of String) From {_BasePath, PATH_EDMI, PATH_ACTIVE}
+        oParts.Add(RelativePath)
+        Return IO.Path.Combine(oParts.ToArray)
     End Function
 
-    Public Function GetRelativePath(DocumentType As String, Optional FileName As String = "")
+    Public Function GetArchivePath(DocumentType As String, Optional FileName As String = "") As String
+        Dim oParts = New List(Of String) From {_BasePath, PATH_EDMI, PATH_ARCHIVE}
+        oParts.AddRange(Do_GetRelativePath(DocumentType, FileName))
+
+        Return IO.Path.Combine(oParts.ToArray())
+    End Function
+
+    Public Function GetArchivePathFromRelativePath(RelativePath As String) As String
+        Dim oParts = New List(Of String) From {_BasePath, PATH_EDMI, PATH_ARCHIVE}
+        oParts.Add(RelativePath)
+        Return IO.Path.Combine(oParts.ToArray)
+    End Function
+
+    Public Function GetRelativePath(DocumentType As String, Optional FileName As String = "") As String
+        Return IO.Path.Combine(Do_GetRelativePath(DocumentType, FileName).ToArray)
+    End Function
+
+    Private Function Do_GetRelativePath(DocumentType As String, Optional FileName As String = "") As List(Of String)
         Dim oPathParts As New List(Of String) From {DocumentType}
         oPathParts.AddRange(GetDatePath())
         oPathParts.Add(FileName)
 
-        Return IO.Path.Combine(oPathParts.ToArray())
+        Return oPathParts
     End Function
 
     Private Function GetDatePath() As List(Of String)