Index: TECH/File/FileAPI.cls.xml
===================================================================
diff -u -r2484 -r2867
--- TECH/File/FileAPI.cls.xml	(.../FileAPI.cls.xml)	(revision 2484)
+++ TECH/File/FileAPI.cls.xml	(.../FileAPI.cls.xml)	(revision 2867)
@@ -15,6 +15,11 @@
 <FormalSpec>FilenameOld:%String,FilenameNew:%String</FormalSpec>
 </Method>
 
+<Method name="CopyFile">
+<Abstract>1</Abstract>
+<FormalSpec>Filename:%String,ToFileName:%String</FormalSpec>
+</Method>
+
 <Method name="DeleteFile">
 <Abstract>1</Abstract>
 <FormalSpec>FullFilename:%String</FormalSpec>
Index: TECH/File/impl/FileAPI.cls.xml
===================================================================
diff -u -r2555 -r2867
--- TECH/File/impl/FileAPI.cls.xml	(.../FileAPI.cls.xml)	(revision 2555)
+++ TECH/File/impl/FileAPI.cls.xml	(.../FileAPI.cls.xml)	(revision 2867)
@@ -21,6 +21,15 @@
 ]]></Implementation>
 </Method>
 
+<Method name="CopyFile">
+<FormalSpec>FilenameFrom:%String,FileNameTo:%String</FormalSpec>
+<Implementation><![CDATA[
+  	if '##class(TECH.File).CopyFile(FilenameFrom,FileNameTo) {
+	 	do ##class(TECH.Exceptions.FileException).Throw("Failed to copy file '"_FilenameFrom_"' to '"_FileNameTo_"'") 	
+  	}
+]]></Implementation>
+</Method>
+
 <Method name="DeleteFile">
 <FormalSpec>FullFilename:%String</FormalSpec>
 <Implementation><![CDATA[	do ##class(TECH.File).Delete(FullFilename)