' Lists the albums that are currently open in MyAlbum

app.ClearTrace
nb = app.nbAlbum
app.Trace nb & " album are currently open"

for i=0 to nb-1
    set alb = app.GetAlbum(i)
    app.Trace "Album " & i & " : " & alb.sPathName & "   (" & alb.sAlbumTitle & ")"
next