'--------------------------------------------------------------------------
'				CountSelPics.vbs
' Count the selected pictures and displays the result on the status bar.
'--------------------------------------------------------------------------


Option Explicit

' Define the variables
dim alb, nb, i, pic, nbSel
nbSel = 0

set alb = app.GetCurrentAlbum

nb = alb.nbPicture
for i=0 to nb-1
    Set pic = alb.GetPicture(i)
    if pic.bSelected = True then
      nbSel = nbSel + 1
    end if
next

app.Trace nbSel & " selected pictures"
app.StatusBarText = nbSel & " selected pictures"