Index: TECH/Files.cls.xml
===================================================================
diff -u -r1901 -r1903
--- TECH/Files.cls.xml	(.../Files.cls.xml)	(revision 1901)
+++ TECH/Files.cls.xml	(.../Files.cls.xml)	(revision 1903)
@@ -48,9 +48,15 @@
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim FirstPart As FIP.String = $piece(FileOrDirectory,":",1)
-	#dim SecondPart As FIP.String = $piece(FileOrDirectory,":",2,$length(FileOrDirectory,":"))
-	quit FirstPart_":"_$translate(SecondPart,":<>|*?""","")
+	#dim Result As %String = ""
+	if $$$StartsWith(FileOrDirectory,"\\") {
+		set Result = $translate(FileOrDirectory,":<>|*?""","")
+	} else {
+		#dim FirstPart As TECH.String = $piece(FileOrDirectory,":",1)
+		#dim SecondPart As TECH.String = $piece(FileOrDirectory,":",2,$length(FileOrDirectory,":"))
+		set Result = FirstPart_":"_$translate(SecondPart,":<>|*?""","")		
+	}
+	quit Result
 ]]></Implementation>
 </Method>