' ------------------------------------------------------------------------------------
'				CopyPicPathname.vbs
' This script copies the full pathname of the current picture to the Windows clipboard.
' Usefull when associated to a keyboard shortcut.
' ------------------------------------------------------------------------------------
option explicit

Dim alb, pic

set alb = app.GetCurrentAlbum
if not alb is Nothing then
  set pic = alb.GetPicture( alb.CvtNumPic( alb.nCurrentPicture, True ) )
  if not pic is Nothing then
    app.CopyString alb.ExpandMacro( pic, "%RP" )
    app.Trace app.PasteString
  end if
end if