home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 2 BBS / 02-BBS.zip / flink11.zip / TestFile.cmd < prev    next >
OS/2 REXX Batch file  |  1995-05-19  |  511b  |  27 lines
  1. /* hejsan
  2.  
  3.  c:\file\upload\vgademo.zip
  4.        1
  5. */
  6.  
  7. parse upper arg File
  8.  
  9. t = filetype( File )
  10.  
  11. select
  12.   when t == "Dms" then s='Testdms' File
  13.   when t == "Lha" then s='c:\dos\Lha /n /m t ' File
  14.   when t == "Lzh" then s='c:\dos\Lha /n /m t ' File
  15.   when t == "Zip" then s='c:\dos\pkunzip -t' File
  16.   when t == "Arc" then s='arc t' File
  17.   when t == "Arj" then s='unarj t' File
  18. otherwise
  19.   exit
  20. end
  21.  
  22. s' 1> c:\tmp\%node%\test.tx1 2>c:\tmp\%node%\test.tx2'
  23.  
  24. if rc = 0 then exit
  25.  
  26. 'del' File
  27.