' ------------------------------------------------------------------------------------
'					SetKeyword.vbs
'    Assign a keyword to the selected pictures.
' ------------------------------------------------------------------------------------

Option Explicit

  dim alb, i, nbPic, kw, pic
  set alb = app.GetCurrentAlbum
  nbPic = alb.nbPicture

  kw = InputBox( "Please type the keyword to assign to the selected pictures", "SetKeyword", "")

  for i = 0 to nbPic-1
    Set pic = alb.GetPicture(i)
    if pic.bSelected = True then
      pic.SetKeyword kw, True
    end if
  next