anchor.diff:      let file = fileInfo fileName
       if not file.Exists then 
           logfn "Creating %s" file.FullName
  -        ensureDirExists file.Directory
           let newFile = file.Create()
           newFile.Close()
       else
  
positive.code:         let targetName = target @@ fi.Name
          DeleteFile targetName
          logVerbosefn "Move %s to %s" fileName targetName
          ensureDirectory target
          f.MoveTo(targetName) |> ignore
      | Directory _ -> logVerbosefn "Ignoring %s, because it is no file" fileName
negative.code:     | File f ->  
          let targetName = target @@ fi.Name
          logVerbosefn "Copy %s to %s" fileName targetName
          f.CopyTo(targetName,true) |> ignore    
      | Directory _ -> logVerbosefn "Ignoring %s, because it is no file" fileName
    
  