'-------------------------------------------------------------
'			TestRelPath.vbs
' Lists for each picture the original path and relative path
'-------------------------------------------------------------

app.ClearTrace
set alb = app.GetCurrentAlbum
nb = alb.nbPicture
app.Trace "Pictures in this album: " & nb
for i=0 to nb-1
    Set pic = alb.GetPicture(i)
    s = alb.ExpandMacro( pic, "%RP" )
    app.trace pic.sShortFileName & " [" & pic.sFileName & "]->[" & s & "]"
next
app.Trace "Done !"