home *** CD-ROM | disk | FTP | other *** search
/ DTP Toolbox / DTPToolbox.iso / propage4.0 / arexx / splitpath.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1992-06-17  |  229 b   |  14 lines
  1. /*
  2.     SplitPath.rexx
  3.     This Genie will split the path from a pathname
  4. */
  5.  
  6. parse arg path
  7.  
  8. colon = lastpos('/', path)
  9. if colon = 0 then colon = lastpos(':', path)
  10.  
  11. if colon = 0 then return(path)
  12. else return(substr(path, colon + 1))
  13.  
  14.