Index: TECH/Files.cls.xml
===================================================================
diff -u -r2126 -r2967
--- TECH/Files.cls.xml	(.../Files.cls.xml)	(revision 2126)
+++ TECH/Files.cls.xml	(.../Files.cls.xml)	(revision 2967)
@@ -198,15 +198,28 @@
 <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)) 
+	#dim ToDir As %String = ##class(%File).GetDirectory(ToPath)
+	#dim Status As %Status = ##class(%File).CreateDirectoryChain(ToDir)
+	If $$$ERROR(Status) Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.FileException).%New("Kon directorystructuur 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>
 
+<Method name="MoveFile">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>FromPath:%String,ToPath:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim ToDir As %String = ##class(%File).GetDirectory(ToPath)
+	#dim Status As %Status = ##class(%File).CreateDirectoryChain(ToDir)
+	If $$$ERROR(Status) Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.FileException).%New("Kon directorystructuur niet aanmaken :"_ToDir,Status)) 
+	
+	Set Status = ##class(%File).Rename(FromPath,ToPath)
+	If $$$ERROR(Status) Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.FileException).%New("Kon bestand niet verplaatsen/hernoemen van "_FromPath_" naar "_ToPath,Status))
+]]></Implementation>
+</Method>
+
 <Method name="RemoveDirectoryTreeOlderThen">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Path:%String,Tijdstip:%TimeStamp=$$$CurrentTimeStamp</FormalSpec>