Index: TECH/File/impl/DirectoryUtils.cls.xml
===================================================================
diff -u -r938 -r1002
--- TECH/File/impl/DirectoryUtils.cls.xml	(.../DirectoryUtils.cls.xml)	(revision 938)
+++ TECH/File/impl/DirectoryUtils.cls.xml	(.../DirectoryUtils.cls.xml)	(revision 1002)
@@ -8,9 +8,9 @@
 Maakt volledig directory path aan, bv C:\map1\map2\map3</Description>
 <FormalSpec>Directory:%String</FormalSpec>
 <Implementation><![CDATA[
-	If ('##class(%File).DirectoryExists(Directory))
+	If ('##class(TECH.File).DirectoryExists(Directory))
 	{
-		Do ##class(%File).CreateDirectoryChain(Directory)
+		Do ##class(TECH.File).CreateDirectoryChain(Directory)
 	}
 ]]></Implementation>
 </Method>
@@ -25,17 +25,17 @@
 	Do ResultSet.Execute(Directory,"*")
 	While(ResultSet.Next())
 	{
-		Set FileLocation = ResultSet.Data("Name")
-		If (##class(%File).DirectoryExists(FileLocation))
+		#dim FileLocation As %String = ResultSet.Data("Name")
+		If (##class(TECH.File).DirectoryExists(FileLocation))
 		{
 			Do ..Delete(FileLocation)
 		}
 		Else
 		{
-			Do ##class(%File).Delete(FileLocation)
+			Do ##class(TECH.File).Delete(FileLocation)
 		}
 	}
-	Do ##class(%File).RemoveDirectory(Directory)
+	Do ##class(TECH.File).RemoveDirectory(Directory)
 ]]></Implementation>
 </Method>
 
@@ -48,11 +48,11 @@
 	Do ResultSet.Execute(Directory,"*")
 	While(ResultSet.Next())
 	{
-		Set FileLocation = ResultSet.Data("Name")
-		Set File = ##class(%File).%New(FileLocation)
+		#dim FileLocation As %String = ResultSet.Data("Name")
+		Set File = ##class(TECH.File).%New(FileLocation)
 		If (File.DateModified <= Datum)
 		{
-			Do ##class(%File).Delete(FileLocation)
+			Do ##class(TECH.File).Delete(FileLocation)
 		}
 	}
 ]]></Implementation>