0 Replies Latest reply on May 13, 2014 12:31 PM by Ben Molitor

    Removing Reference from Item

    Ben Molitor

      I am trying to remove a reference from an Item. My code works fine when I add a Reference to the Item through code.

      But when I add a reference to an Item manually through the Item Explorer, I am not able to Remove this Reference. Any Ideas?

       

       

          Private Function Item_RemoveFile(ByRef Item As IEdmItem, FileName As String, FileID As Integer) As String

       

                  Dim RemoveRef(0) As EdmItemRef

                  Dim refFlags As Integer = EdmRefFlags.EdmRef_File

                  Dim ExistingRefs() As EdmItemRef = Nothing

       

                  ' Get Existing References

                  Item.GetReferences(refFlags, ExistingRefs)

       

                  For Each ExistingRef As EdmItemRef In ExistingRefs

       

                      If ExistingRef.moNamePathOrID = FileID Then

                        

                           ' Found Reference

                          RemoveRef(0) = ExistingRef

       

                          ' Remove Reference

                          Item.UpdateReferences(Nothing, RemoveRef)

                          Item.Refresh()

       

                          ' This Function Checks the Item Back In

                           Update_ItemStatus(Item, True, "Removed File Reference")

       

                          Return ""

       

                      End If

                  Next ExistingRef