Index: vhTest/Fake/TECH/File/FileUtils.cls.xml
===================================================================
diff -u -r2503 -r2530
--- vhTest/Fake/TECH/File/FileUtils.cls.xml	(.../FileUtils.cls.xml)	(revision 2503)
+++ vhTest/Fake/TECH/File/FileUtils.cls.xml	(.../FileUtils.cls.xml)	(revision 2530)
@@ -3,11 +3,6 @@
 <Class name="vhTest.Fake.TECH.File.FileUtils">
 <Super>TECH.File.FileUtils</Super>
 
-<Property name="FileExistsVlag">
-<Type>%Boolean</Type>
-<InitialExpression>1</InitialExpression>
-</Property>
-
 <Property name="FileList">
 <Type>TECH.FileInfo</Type>
 <Collection>list</Collection>
@@ -17,7 +12,21 @@
 <Method name="FileExists">
 <FormalSpec>FileName:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit ..FileExistsVlag
+<Implementation><![CDATA[
+	Set Found = 0
+	
+	#dim FileListIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(..FileList)
+	while FileListIterator.HasNext()
+	{
+		#dim Info As TECH.FileInfo = FileListIterator.Next()
+		If (Info.Name=FileName)  
+		{
+			Set Found = 1
+			Quit 
+		}
+	}
+	
+	Quit Found
 ]]></Implementation>
 </Method>
 
@@ -28,6 +37,36 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Delete">
+<FormalSpec>FileName:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim Counter As %Integer = 1
+	#dim Key As %Integer = 0	
+	For Counter=1:1:..FileList.Count()
+	{
+		Set:(..FileList.GetAt(Counter).Name = FileName) Key = Counter
+	}
+	Do:(Key'=0) ..FileList.RemoveAt(Key)
+]]></Implementation>
+</Method>
+
+<Method name="CopyFile">
+<FormalSpec>OldFileName:%String,NewFileName:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim FileListIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(..FileList)
+	while FileListIterator.HasNext()
+	{
+		#dim Info As TECH.FileInfo = FileListIterator.Next()
+		If (Info.Name = OldFileName) 
+		{
+			set InfoCopy = Info.%ConstructClone()
+			Set InfoCopy.Name = NewFileName
+			Do ..FileList.Insert(InfoCopy)
+		}
+	}
+]]></Implementation>
+</Method>
+
 <Method name="VoegToeFileInfo">
 <FormalSpec>FullName:%String,DateCreated:%Date="",DateModified:%Date="",Size:%Integer=0,Type:%String=""</FormalSpec>
 <Implementation><![CDATA[