cDir = "d:\pictures"
cTextFile = "d:\examples\plus2019\EXIF_dates.txt"

if file(cTextFile)
  new File().delete(cTextFile)
endif
f = new file()
f.create('ex_exif.bat')
f.puts([exiftool -p "$filename has date $dateTimeOriginal" -q -f  ]+cDir+[ >> ]+cTextFile)
f.close()
 if (type("WinExec") # "FP")
      extern CWORD WinExec(CSTRING, CUINT) Kernel32
endIf
SW_HIDE = 0
WinExec('ex_exif.bat'+Chr(0), SW_HIDE)

inkey(2) //Wait for text file to be written and closed.

if file("exif_dates.dbf")
   drop table exif_dates
endif

create table exif_dates (image_name char(20),exif_timestamp timestamp)
q = new query()
q.sql = 'select * from exif_dates'
q.active = true
f = new file()
f.open(cTextFile)
do while not f.eof()
  cRead = f.gets(10000)
  if ':'$cRead
     q.rowset.beginAppend()
     q.rowset.fields[1].value = substr(cRead,1,at(' ',cRead)-1)
     q.rowset.fields[2].value = substr(cRead,at('date',cRead)+5)
     q.rowset.save()
  endif
enddo
f.close()
q.active = false