Index: TECH/Files.cls.xml
===================================================================
diff -u -r525 -r551
--- TECH/Files.cls.xml	(.../Files.cls.xml)	(revision 525)
+++ TECH/Files.cls.xml	(.../Files.cls.xml)	(revision 551)
@@ -2,13 +2,25 @@
 <Export generator="Cache" version="24">
 <Class name="TECH.Files">
 <ClassType/>
+<IncludeCode>vhLib.Macro</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
 
 <Property name="List">
 <Type>%ListOfObjects</Type>
 </Property>
 
+<Method name="GetNetworkVersion">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Path:%String,Server:%String=$$$Server</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim result As %String = Path
+	if $extract(Path,1,3)?1A1":\" set result = "\\"_Server_"\"_$piece(Path,":",1)_"$\"_$piece(Path,":",2,$length(Path,":"))
+	quit ##class(TECH.File).NormalizeFilename(result)
+]]></Implementation>
+</Method>
+
 <Method name="AppendFile">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Directory:%String,Filename:%String</FormalSpec>