home *** CD-ROM | disk | FTP | other *** search
/ Media Share 13 / mediashare_13.zip / mediashare_13 / ZIPPED / NETWORK / GP25.ZIP / NAME.PRG < prev    next >
Text File  |  1993-02-11  |  411b  |  21 lines
  1. *  The purpose of this procedure is to strip out the file name from
  2. *  a drive/path specification
  3.  
  4. parameter cName
  5.  
  6. if type('cName') <> 'C'
  7.     return .f.
  8. endif
  9.  
  10. cName = upper(alltrim(cName))
  11. if substr(cName, 2, 1) == ':'
  12.     cName = substr(cName, 3)
  13. endif
  14. if '\' $ cName
  15.     cName = substr(cName, rat('\', cName) + 1)
  16. endif
  17. if '.' $ cName
  18.     cName = left(cName, at('.', cName) - 1)
  19. endif
  20. return cName
  21.