' test

external ipath chkdate() messbox() dsa popuplist() vloadif() dpath tone()

public   ptstr

global   x IndexFileTime() $file


MAIN

  IndexFileTime()


END MAIN


FUNCTION IndexFileTime()
local t DL
  $file=ipath|"listdesp.idx"      'message "$file) is:"&str($file)
  if file($file)=1
    x=fileinfo($file,f_datetime)
    dl=date2(left(str(x),5))           '
message "date of LISTDESP file is:"&str(dl)
    return(0)
  else
    return(1)
  end if
END FUNCTION ' ImmtFileTime()
' |