Index: TECH/File/impl/DirectoryUtils.cls.xml
===================================================================
diff -u -r1002 -r2352
--- TECH/File/impl/DirectoryUtils.cls.xml	(.../DirectoryUtils.cls.xml)	(revision 1002)
+++ TECH/File/impl/DirectoryUtils.cls.xml	(.../DirectoryUtils.cls.xml)	(revision 2352)
@@ -58,6 +58,20 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwijderBestanden">
+<FormalSpec>Directory:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set ResultSet = ##class(%ResultSet).%New("%File:FileSet")
+	Do ResultSet.Execute(Directory,"*")
+	While(ResultSet.Next())
+	{
+		#dim FileLocation As %String = ResultSet.Data("Name")
+		Set File = ##class(TECH.File).%New(FileLocation)
+		Do ##class(TECH.File).Delete(FileLocation)
+	}
+]]></Implementation>
+</Method>
+
 <Method name="IsEmpty">
 <FormalSpec>Directory:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>