home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / applications / wp / ttx2_sasc.lha / Rexx / TTX_SASC / GetPathPart < prev    next >
Encoding:
Text File  |  1994-10-24  |  404 b   |  21 lines
  1.  
  2. /** $VER: GetPathPart 1.0 (23.10.94)
  3.  **
  4.  ** Extracts the path name from a full file specification.
  5.  ** So long as that spec is valid, this should not fail.
  6.  **
  7.  ** Written by Kenneth Yarnall.  This code may be freely distributed.
  8.  **/
  9.  
  10. GetPathPart:
  11.  
  12. Parse ARG path
  13.  
  14. dirend = LastPos('/', path)
  15. if dirend = 0 then
  16.     dirend = Pos(':',path)
  17. if dirend ~= 0 then
  18.     path = Left(path,dirend)
  19.  
  20. Return path
  21.