anchor.diff:          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
positive.code:     let file = fileInfo fileName
      if not file.Exists then 
          logfn "Creating %s" file.FullName
          ensureDirExists file.Directory
          let newFile = file.Create()
          newFile.Close()
      else
  
negative.code:         let fi = file |> replaceFirst source "" |> trimSeparator
          let newFile = target @@ fi
          logVerbosefn "%s => %s" file newFile
          DirectoryName newFile |> ensureDirectory
          File.Copy(file, newFile, true))
      |> ignore
    
  