Click above to get retro games delivered to your door ever month!

  Name:     finddate() - get file's date from last findfirst/next()
  Usage:    <string> = finddate()
  Params:   none
  Returns:  string equal to the date stamp of the last file
            found by findfirst() or findnext() in the format "MM-DD-YY"

 ---------------------------------- Example ---------------------------------

                 nfiles = filecount("*.dbf")
                 if nfiles > 0
                      declare dbfarray[nfiles]
                      declare dbfdates[nfiles]
                      temp = findfirst("*.dbf")
                      date = finddate()
                      for n = 1 to nfiles
                           dbfarray[n] = temp
                           dbfdates[n] = date
                           temp = findnext()
                           date = finddate()
                      next
                 endif

  Note:     Finddate() should only be used in conjunction with
            findfirst() and findnext(). In order to work correctly,
            you must call finddate() immediately after your call
            to findfirst() or findnext(). finddate() will get the
            the date of the file that findfirst() or findnext()
            just returned. finddate() always assumes that you
            have done a findfirst() or findnext() call first.