anchor.diff:          logfn "Deleting %s" dir.FullName
           dir.Delete true
       else
  -      logfn "%s does not exist." dir.FullName
  +        logfn "%s does not exist." dir.FullName
       
   /// Creates a directory if it does not exist
   let CreateDir x =   
  
positive.code:               targetFI.Attributes <- FileAttributes.Normal
                fi.CopyTo(targetName,true) |> ignore
          else
            fi.CopyTo(targetName) |> ignore)
                 
  
  /// Copies the files to the target - Alias for Copy
  
negative.code:             dir.Attributes <- dir.Attributes &&& (~~~FileAttributes.ReadOnly)  
  
  /// Sets all files in the directory readonly 
  let SetDirReadOnly readOnly dir =
      recursively (setDirectoryReadOnly readOnly) (fun file -> file.IsReadOnly <- readOnly) dir
    
  /// Sets all files in the directory readonly 
  