home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / epmsmp.zip / CHANGECD.E < prev    next >
Text File  |  1992-08-26  |  441b  |  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.