Index: TECH/Files.cls.xml
===================================================================
diff -u -r28 -r54
--- TECH/Files.cls.xml	(.../Files.cls.xml)	(revision 28)
+++ TECH/Files.cls.xml	(.../Files.cls.xml)	(revision 54)
@@ -143,5 +143,18 @@
 	quit $$$OK
 ]]></Implementation>
 </Method>
+
+<Method name="CopyFile">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>FromPath:%String,ToPath:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set ToDir = ##class(%File).GetDirectory(ToPath)
+	Set Status = ##class(%File).CreateDirectoryChain(ToDir)
+	If $$$ERROR(Status) Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.FileException).%New("Kon directory structuur niet aanmaken :"_ToDir,Status)) 
+	
+	Set Status = ##class(%File).CopyFile(FromPath,ToPath)
+	If $$$ERROR(Status) Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.FileException).%New("Kon bestand niet kopieren van "_FromPath_" naar "_ToPath,Status))
+]]></Implementation>
+</Method>
 </Class>
 </Export>