home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / vpzup.zip / vpzip.cmd < prev   
OS/2 REXX Batch file  |  1994-08-19  |  303b  |  13 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. "del "||'"'||child'.ZIP"'
  11. "zip -r "||'"'||child||'.ZIP" '||'"'||child||'\."'
  12. pause
  13.