Index: TECH/Files.cls.xml
===================================================================
diff -u -r1716 -r1901
--- TECH/Files.cls.xml	(.../Files.cls.xml)	(revision 1716)
+++ TECH/Files.cls.xml	(.../Files.cls.xml)	(revision 1901)
@@ -32,15 +32,28 @@
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Directory:%String,Filename:%String</FormalSpec>
 <Implementation><![CDATA[
+	#dim Delim As %String = ""
 	if Directory [ "/" Set Delim = "/"
 	else  set Delim = "\"
 	If $extract(Directory,$length(Directory))'=Delim set Directory = Directory_Delim
 	If $extract(Filename)=Delim Set Filename = $extract(Filename,2,$length(Filename))
-	Set resFilename = Directory_Filename
+	#dim resFilename As %String = ..RemoveIllegalCharacters(Directory_Filename)
 	Quit resFilename
 ]]></Implementation>
 </Method>
 
+<Method name="RemoveIllegalCharacters">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>FileOrDirectory:%String</FormalSpec>
+<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,":<>|*?""","")
+]]></Implementation>
+</Method>
+
 <Method name="AppendSubPath">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Directory:%String,SubPath:%String</FormalSpec>