home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / dragen1.zip / dstart.cmd < prev    next >
OS/2 REXX Batch file  |  2000-03-15  |  371b  |  20 lines
  1. /* dragen start */
  2. arg dragstart
  3. parse source operatingsystem commandtype sourcefilename
  4.  
  5. fpos=lastpos(":",sourcefilename)
  6. if fpos \= 0 then
  7. dirvalue=left(sourcefilename,fpos)
  8. dirvalue
  9.  
  10. fpos=lastpos("\",sourcefilename)
  11. if fpos \= 0 then
  12. ftppath=left(sourcefilename,fpos-1)
  13. getstr="cd "ftppath
  14. getstr
  15.  
  16. getstr="start "ftppath"\dragen "dragstart
  17. getstr
  18.  
  19.  
  20.