anchor.diff:            fi.IsReadOnly <- readOnly
         else
             let di = new DirectoryInfo(file)
  -          setDirectoryReadOnly readOnly di)
  -      
  +          setDirectoryReadOnly readOnly di)      
         
   /// Deletes a directory if it exists
   let DeleteDir x =   
  
positive.code:             dir.Attributes <- dir.Attributes &&& (~~~FileAttributes.ReadOnly)  
  
  /// Sets all files in the directory readonly 
  let rec SetDirReadOnly readOnly (dir:DirectoryInfo) =
      dir.GetDirectories() |> Seq.iter (fun dir ->
          SetDirReadOnly readOnly dir
          setDirectoryReadOnly readOnly dir)
      dir.GetFiles() |> Seq.iter (fun file -> file.IsReadOnly <- readOnly)    
    
  /// Sets all files in the directory readonly 
  let SetReadOnly readOnly (files: string seq) =
  
negative.code: ///   param target: The targetDirectory
  ///   param file: The fileName
  let CopyFileIntoSubFolder target file =
      let relative = (toRelativePath file).TrimStart '.'
      let fi = new FileInfo(file)
    
      let targetName = target @@ relative
      let target = new FileInfo(targetName)
      if not target.Directory.Exists then
          target.Directory.Create()
  