' Simple VBScript script for MyAlbum
'   Get the current album, list all
'   pictures and select them

Option Explicit

app.ClearTrace
MsgBox "MyAlbum version: " & app.Version, 0, "MyAlbum does VBScript!!!"

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

'set alb = app.LoadAlbum("D:\WINDOWS\SDK\MyAlbum\DemoAlbum\Demo2.alb")
set alb = app.GetCurrentAlbum

nb = alb.nbPicture
app.Trace "Pictures in this album: " & nb, -1, TRACE_INFORMATION
for i=0 to nb-1
    Set pic = alb.GetPicture(i)
    pic.bSelected = True
    app.trace pic.sShortFileName & " - " & pic.sCommentFirstLine
next

alb.redraw
app.Trace "Done !", -1, TRACE_OK