anchor.diff:    
       let targetName = target @@ relative
       let target = new FileInfo(targetName)
  -    if not target.Directory.Exists then
  -        target.Directory.Create()
  +    if not target.Directory.Exists then target.Directory.Create()
  +
       logVerbosefn "Copy %s to %s" file targetName
       fi.CopyTo(targetName,true) |> ignore    
   
  
positive.code:             dir.Attributes <- dir.Attributes &&& (~~~FileAttributes.ReadOnly)  
  
  /// Sets all files in the directory readonly 
  let SetDirReadOnly readOnly (dir:DirectoryInfo) =
      recursively (setDirectoryReadOnly readOnly) (fun file -> file.IsReadOnly <- readOnly) dir
    
  /// Sets all files in the directory readonly 
  
negative.code:               targetFI.Attributes <- FileAttributes.Normal
                fi.CopyTo(targetName,true) |> ignore
          else
              fi.CopyTo(targetName) |> ignore)
                 
  
  /// Copies the files to the target - Alias for Copy
  