' ------------------------------------------------------------------------------------
'         			SelectPicWithURL.vbs
'
' Selects the pictures that have an URL field defined.
' ------------------------------------------------------------------------------------

Option Explicit

app.ClearTrace

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

' Process each picture
nbPic = alb.nbPicture
alb.nbSelectedPicture = 0

for i = 0 to nbPic-1
  Set pic = alb.GetPicture(i)
  if pic.sURL <> "" then pic.bSelected = True
next

alb.Redraw