' ------------------------------------------------------------------------------------
'				SetCommentOnSelectedPictures.vbs
' Set the comment of all the selected pictures in the current album to a given text.
' ------------------------------------------------------------------------------------

Option Explicit
app.ClearTrace

const TheComment = "My comment"

' Define the variables
dim alb, nb, i, pic

set alb = app.GetCurrentAlbum

nb = alb.nbPicture
for i=0 to nb-1
    Set pic = alb.GetPicture(i)
    if pic.bSelected then pic.sComment = TheComment
next

alb.redraw
app.Trace "Done !"