home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Professional / OS2PRO194.ISO / os2 / wps / editor / epmtools / epmsmp / changecd.e < prev    next >
Encoding:
Text File  |  1992-08-26  |  441 b   |  13 lines
  1. ; The following will make the subdirectory from which a file is loaded
  2. ; the active or current subdirectory.  Note that it will change the
  3. ; current subdirectory whenever a file is loaded.  It can be changed
  4. ; to update the current subdirectory whenever a file is selected, by
  5. ; replacing the defload with defselect.
  6.  
  7. defload
  8.    dirpos=lastpos('\',.filename)
  9.    if dirpos>1 then
  10.       'cd 'substr(.filename,1,dirpos-1)
  11.    endif
  12.  
  13.