home *** CD-ROM | disk | FTP | other *** search
- @echo off
- :START
- if not exist temp.$$$\nul md temp.$$$
- if not exist temp.$$$\*.* goto READY
- echo y | del temp.$$$\*.* > nul
- :READY
- if exist *.zip ren *.zip *.z$p
- :RUN
- if exist *.z!p ren *.z!p *.zip
- set arctype=
- if exist *.zoo set arctype=ZOO
- if exist *.z$p set arctype=Z$P
- if exist *.pak set arctype=PAK
- if exist *.md set arctype=MD
- if exist *.lzh set arctype=LZH
- if exist *.lbr set arctype=LBR
- if exist *.arc set arctype=ARC
- if exist *.?q? set arctype=?Q?
- if "%arctype%" == "" goto DONE
- for %%f in (*.%arctype%) do call CVT-ZIP! %%f
- goto RUN
- :DONE
- rd temp.$$$
- echo.
- if not exist *.zip goto NOZIP
- echo ■ Finished converting the files.
- if not exist \bad.$$$\nul goto END
- echo.
- echo ■ Check the BAD.$$$ subdirectory for errors!
- goto END
- :NOZIP
- echo ■ There were no archives to convert!
- :END
- echo.