home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 2 BBS / 02-BBS.zip / flink11.zip / ViewZip.cmd < prev    next >
OS/2 REXX Batch file  |  1994-12-14  |  612b  |  32 lines
  1. /* hejsan
  2.  
  3.  c:\file\upload vgademo.zip
  4.        1            2
  5. */
  6.  
  7. parse upper arg Path Filename
  8.  
  9. if Filename = '' then exit
  10.  
  11. File = Path'\'Filename
  12.  
  13. t = filetype( File )
  14.  
  15. select
  16.   when t == "Dms" then s='Testdms -vs' File
  17.   when t == "Lha" then s='Lha l /o' File
  18.   when t == "Lzh" then s='Lha l /o' File
  19.   when t == "Zip" then s='unzip -l' File
  20.   when t == "Arc" then s='arc l' File
  21. /*
  22.   when t == "Arj" then s='unarj l' File
  23. */
  24. otherwise do
  25.   '@echo Unsupported compression type. >c:\tmp\%node%\test.tx1'
  26.   exit
  27.   end
  28. end
  29.  
  30. '@'s '> c:\tmp\%node%\test.tx1 2>c:\tmp\%node%\test.tx2'
  31.  
  32.