Date Pic Taken

[Gintaras]

Macro

Code:

Copy      Help

out
str folder.expandpath("$my pictures$\Screensaver")

int iDetails ;;different on all OS
if(_winver>=0x600) iDetails=12 ;;Vista
else if(_winver>=0x501) iDetails=25 ;;XP/2003. Not tested
else end "Date Taken not available"

Shell32.Shell shell._create
Shell32.Folder sf=shell.NameSpace(folder)
VARIANT filen
foreach filen sf.Items
,out filen
,out sf.GetDetailsOf(filen iDetails)

Using other iDetails values you also can get other columns that can be displayed in Windows Explorer. See http://www.kixtart.org/forums/ubbthread ... 880&page=1