home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / programs / compress / filearchivers / archandler / scripts / fromarc.dopus < prev    next >
Text File  |  1995-02-27  |  687b  |  33 lines
  1. /* Change DirectoryOpus directory from directory on Archives:
  2. ** to original directory. */
  3.  
  4. options results
  5.  
  6. status 13 "-1"
  7. dir=result
  8.  
  9. dir=strip(dir,'B','"')
  10. if left(dir,9)="Archives:" then
  11.   do
  12.     i=index(dir,':')
  13.     if i~=0 then
  14.       do
  15.         dir=substr(dir,i+1)
  16.         i=index(dir,'/')
  17.         if i~=0 then
  18.           dir=left(dir,i-1) || ':' || substr(dir,i+1)
  19.         else
  20.           dir=dir || ':'
  21.         i=lastpos('.lha',dir)
  22.         if i~=0 then
  23.           do
  24.             i=lastpos('/',dir,i)
  25.             if i~=0 then
  26.               dir=left(dir,i-1)
  27.             else
  28.               dir=left(dir,index(dir,':'))
  29.           end
  30.         ScanDir '"' || dir || '"'
  31.       end
  32.   end
  33.