getftime() does not work...Heres a workaround

[hag]

I contacted james Bott to check my concern that getFtime() produces the wrong time.
His was off 16hrs mine was 8 hrs. Thanks to james here is a workaround.

Code: Select all  Expand view

// File time
// Returns nil if cFile not found
function ftime(cFile)
   local aDir,cTime
   if cFile != nil
      aDir:= directory(cFile)
      if len(aDir) = 1
         cTime:= aDir[1][4]
      endif
   endif
return cTime
 
// File date
// Returns nil if file not found
function fdate(cFile)
   local aDir,dDate
   if cFile != nil
      aDir:= directory(cFile)
      if len(aDir) = 1
         dDate:= aDir[1][3]
      endif
   endif
return dDate

Happy New Year to all.