home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / C / SASC6571.LZX / extras / ttx / rexx / ttx_sasc / GetPathPart < prev    next >
Encoding:
Text File  |  1996-12-24  |  302 b   |  17 lines
  1. /*
  2. **   GetPathPart: Extracts the path name from a full file specification.
  3. ** So long as that spec is valid, this should not fail.
  4. */
  5.  
  6. GetPathPart:
  7.  
  8. Parse ARG path
  9.  
  10. dirend = LastPos('/', path)
  11. if dirend = 0 then
  12.     dirend = Pos(':',path)
  13. if dirend ~= 0 then
  14.     path = Left(path,dirend)
  15.  
  16. Return path
  17.