home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / vpzup.zip / VPUNZIP.CMD next >
OS/2 REXX Batch file  |  1994-08-19  |  251b  |  12 lines
  1. /* command file to zip a VisPro REXX project file */
  2. arg pathname
  3. say
  4. say
  5. parent=filespec('path',pathname)
  6. child=filespec('name',pathname)
  7. parent=strip(parent,'t','\')
  8. "cd "parent
  9. child=strip(child,'b','"')
  10. "UNZIP "||'"'||child||'"'
  11. pause
  12.