home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DP Tool Club 17
/
CD_ASCQ_17_101194.iso
/
vrac
/
tsbat46.zip
/
EXE2ZIP.BAT
< prev
next >
Wrap
DOS Batch File
|
1992-08-30
|
2KB
|
100 lines
@echo off
echo.
echo ┌─────────────────────────────────────────────────────────────────────┐
echo │ Convert + datestamp self-extracting file to .zip file, with comment │
echo │ By Prof. Timo Salmi, ts@chyde.uwasa.fi, Sun 30-Aug-1992 │
echo └─────────────────────────────────────────────────────────────────────┘
echo.
rem You need help :-)
if "%1"=="" goto _help
rem Check that wilrcards have not been used
for %%f in (%1) do if "%1"=="%%f" goto :_testext
echo No wildcards allowed in the file name %1
goto _out
rem Check that no extension was used
:_testext
set _exten=%1
:_nextchar
set _prev=%_exten%
for %%f in (/%_exten%) do set _exten=%%f
if ".%_exten%"=="%_prev%" goto _extfound
if not "%_exten%"=="%_prev%" goto _nextchar
goto _noext
:_extfound
echo No extension allowed in the file name %1
goto _out
:_noext
set _exten=
rem Check for the necessary programs and status
rem You'' have to customize these
if not exist %1.exe goto _notfound
if not exist e:\arczip\comment.txt goto _nocomment
if not exist c:\tools\scan.exe goto _noscan
if not exist c:\tools\pkzip.exe goto _nopkzip
if not exist r:\nul goto _no_r
if exist r:\tmp$$$\*.* goto _notempty
rem Convert (I have r: as ramdisk, customize as applicable)
r:
if not exist r:\tmp$$$\nul mkdir r:\tmp$$$
cd \tmp$$$
r:\%1
if not exist r:\tmp$$$\*.* goto _notsfx
c:\tools\scan /m /nomem r:\tmp$$$
if errorlevel==1 goto _virus
pkzip -mu -o -z r:\%1 *.* < e:\arczip\comment.txt
cd \
rmdir r:\tmp$$$
goto _out
:_notfound
echo File %1.exe not found
goto _out
:_nocomment
echo File e:\arczip\comment.txt not found
echo You'll have to customize the batch or omit this feature
goto _out
:_noscan
echo File c:\tools\scan.exe not found
echo You'll have to adjust for your own configuration
goto _out
:_nopkzip
echo File c:\tools\pkzip.exe not found
echo You'll have to adjust for your own configuration
goto _out
:_no_r
echo No R: drive
echo Customize the batch or create one with SUBST
goto _out
:_notempty
echo Directory r:\tmp$$$ not empty
goto _out
:_notsfx
echo File %1.exe is not self-extracting
cd \
rmdir r:\tmp$$$
goto _out
:_virus
echo Virus warning
cd \
goto _out
:_help
echo Usage: EXE2ZIP FileName (No path, no extension)
:_out
echo on