home *** CD-ROM | disk | FTP | other *** search
/ Media Share 13 / mediashare_13.zip / mediashare_13 / ZIPPED / NETWORK / GP25.ZIP / EXT.PRG < prev    next >
Text File  |  1992-08-13  |  429b  |  17 lines
  1. *  The purpose of this function is to return the file extension of a
  2. *  path\file name specified
  3. parameter M_Name
  4. if type('M_NAME') <> 'C'
  5.     return .f.
  6. endif
  7. m_Name = alltrim(upper(M_Name))
  8. if '\' $ m_name
  9.     *  this handles the possibility of directory names with '.'s in them
  10.     m_name = substr(m_name, rat('\', m_name) + 1)
  11. endif
  12. if '.' $ m_name
  13.     return substr(m_name, at('.', m_name) + 1, 3)
  14. else
  15.     return ''
  16. endif
  17.