home *** CD-ROM | disk | FTP | other *** search
/ Der Mediaplex Sampler - Die 6 von Plex / 6_v_plex.zip / 6_v_plex / DISK5 / DOS_01 / 4DVC31.ZIP / 4DVCXTR2.BTM < prev    next >
Text File  |  1991-01-04  |  949b  |  34 lines
  1. @echo off
  2.    if not exist %1 quit
  3.    set VCEXT=%@upper[%@name[%@line[%1,0]]]
  4.    set VCEXT=%@substr[%VCEXT,4,3]
  5.    iff %@index[%VCEXT,`.`] EQ 0 then
  6.       set VCEXT=
  7.    endiff
  8.    iff %@index[%VCEXT,`.`] GT 0 then
  9.       set VCEXT=%@substr[%VCEXT,0,%@index[%VCEXT,`.`]]
  10.    endiff
  11.    set VC1=%@upper[%@name[%1]]
  12.    set VC2=%@upper[%@ext[%1]]
  13.    echo Xtracting %VC1.%VC2 as %VC1.%VCEXT from 4DCV%VCEXT.ZIP
  14.    @PKUNZIP -o 4DVC%VCEXT.ZIP 4DVCXTRC\ %VC1.%VC2 >&! NUL
  15.    set VCRC=%?
  16.    iff %VCRC NE 0 then
  17.       echo Error: PKUNZIP failed to extract the file, Return-Code: %VCRC
  18.       pause
  19.       goto WRAPUP
  20.    endiff
  21.    iff exist %VC1.%VCEXT then
  22.       echo     (overlaying existing file)
  23.       del /q %VC1.%VCEXT >&! NUL
  24.    else
  25.       echo     (creating new file)
  26.    endiff
  27.    copy /q 4DVCXTRC\%VC1.%VC2 %VC1.%VCEXT >&! NUL
  28.    del /q 4DVCXTRC\%VC1.%VC2 >&! NUL
  29. :WRAPUP
  30.    set VC1=
  31.    set VC2=
  32.    set VCEXT=
  33.    set VCRC=
  34.