' -------------------------------------------------------------------
' Example on how to delete a keyword or a custom field from an album.
' -------------------------------------------------------------------

Option Explicit

  dim alb, kw, i, nbKW
  set alb = app.GetCurrentAlbum

  nbKW = alb.nbKeyword
  for i = 0 to nbKW-1
    set kw = alb.getKeyword(i)
    if kw.sName = "Little" then exit for
  next
  alb.deleteKeyword(kw)


  nbKW = alb.nbCustomField
  for i = 0 to nbKW-1
    set kw = alb.getCustomField(i)
    if kw.sName = "Flash" then exit for
  next
  alb.deleteCustomField(kw)


  alb.Redraw