'------------------------------------------------------------
'			AlbFile.vbs
' Displays the current album file name. 
'------------------------------------------------------------

Option Explicit
dim pic, alb
set alb = app.GetCurrentAlbum
'set pic = alb.getpicture(0)
MsgBox "The current album is: " & alb.ExpandMacro(pic,"%AP")