Metropoli BBS
VIEWER: zipcom2.bat MODE: TEXT (CP437)
@echo off
:: operate quietly if specified on command line
if not %1`==` goto 50
cls
echo.
echo ░░▒▒▓▓██ ZIPCOM.BAT                          ██▓▓▒▒░░
echo ░░▒▒▓▓██ Adds BBS comment file to a zip file ██▓▓▒▒░░
echo ░░▒▒▓▓██ Syntax: zipcom zip-file             ██▓▓▒▒░░
echo ░░▒▒▓▓██ Offers pick list if zip-file is     ██▓▓▒▒░░
echo ░░▒▒▓▓██ not specified.                      ██▓▓▒▒░░
echo.
:50
m/set z=[ucase`[fonly`%1]]
if not '%1'=='' goto 200
:100
if exist *.zip goto 150
m/nul [msgdelay`No ZIP files exist in the current directory.]
goto fin
:150
m/set/halt5 z=[fonly`[getfilen`*.zip]]
if errorlevel 5 goto fin
:200
if exist %z% goto 400
echo Zip file %z% does not exist
goto 100
:400
:: edit your comment into the next line
echo Zip Comment............ | pkzip -z -k %z% >nul
:: the -k keeps the archive date
:: loop if not called with a parameter
if %1`==` goto 100
:fin
set z=

[ RETURN TO DIRECTORY ]