' ------------------------------------------------------------------------------------ ' ListCFDateTime.vbs ' Simply list the Date and Time custom fields for the pictures of the current album. ' ------------------------------------------------------------------------------------ Option Explicit const sCFDate = "Date" const sCFTime = "Time" Dim alb, pic, i, n, k App.ClearTrace set alb = app.GetCurrentAlbum n = alb.nbPicture for i = 0 to n-1 set pic = alb.GetPicture( i ) app.Trace pic.sShortFileName & vbTab & vbTab & pic.GetCustomField( sCFDate ) & " " & pic.GetCustomField( sCFTime ) & _ vbTab & "(" & pic.GetCustomFieldDate( sCFDate ) & " " & pic.GetCustomFieldDate( sCFTime ) & ")" next App.Trace "Done!", -1, TRACE_GREENDOT