'------------------------------------------------------------------------
'			linkAlbum.vbs
' Sample script to load an album from the script associated to a picture
' to make a continuous slideshow between two albums.
'------------------------------------------------------------------------


set alb1 = app.GetCurrentAlbum
alb1.closeDisplay
alb1.close True
set alb1=nothing
set alb2 = app.LoadAlbum("OtherAlbum.alb")
alb2.AddRef		' New album is not killed when script exits
alb2.DisplayPicture 2	'automatic slideshow