;+
; NAME:
;   jbt_file_latest (function)
;
; PURPOSE:
;   Return the path of the latest file within a folder.
;
; CATEGORIES:
;
; CALLING SEQUENCE:
;   result = jbt_file_latest(dir)
;
; ARGUMENTS:
;   dir: (In, required) A string of a local directory.
;
; KEYWORDS:
;
; COMMON BLOCKS:
;
; EXAMPLES:
;
; SEE ALSO:
;
; HISTORY:
;   2012-10-28: Created by Jianbao Tao (JBT), SSL, UC Berkley.
;   2012-11-02: Initial release to TDAS. JBT, SSL/UCB.
;
;
; VERSION:
; $LastChangedBy: jianbao_tao $
; $LastChangedDate: 2012-11-02 16:35:10 -0700 (Fri, 02 Nov 2012) $
; $LastChangedRevision: 11172 $
; $URL: svn+ssh://thmsvn@ambrosia.ssl.berkeley.edu/repos/spdsoft/tags/spedas_3_00/general/missions/rbsp/efw/utils/jbt_file_latest.pro $
;
;-

function jbt_file_latest, dir

compile_opt idl2

flist = file_search(dir, '*')

nfile = n_elements(flist)
mtimes = fltarr(nfile)

inew = 0

for i = 0L, nfile - 1 do begin
  info = file_info(flist[i])
  mtimes[i] = info.mtime
endfor

dum = max(mtimes, imax)

return, flist[imax]

end