anchor.diff:          match res with
           | Some true -> Some model.Name
           | _ -> None
  -
  -    let performMoveToFolderAction (info: ActionInfo) name =
  -        msgboxInf name
  -        ()
   
       let performNewFolderAction (info: ActionInfo) name =
           let items = 
  
positive.code:         | Some true -> Some model.Name
          | _ -> None
  
      let askForNewFolderName resources = 
          let model = NewFolderNameDialogModel resources
          let wnd = FolderMenuUI.loadNewFolderDialog model
  
negative.code:         | [] -> false
          | _ ->
              let filesOnly = info.Items |> List.forall (fun i -> VSUtils.isPhysicalFile i)
              let distinctByName = info.Items |> Seq.distinctBy (fun i -> i.Name)
              filesOnly && (Seq.length distinctByName = List.length info.Items)
  
      let isCommandEnabled (actionInfo: ActionInfo option) (action:Action) = 
          match actionInfo with
  