home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The World of Computer Software
/
World_Of_Computer_Software-02-387-Vol-3of3.iso
/
6
/
6pakbats.zip
/
PCBSK.BAT
< prev
next >
Wrap
DOS Batch File
|
1993-02-28
|
876b
|
37 lines
@echo off
if exist pcberr.fil del pcberr.fil
if exist pcbdsz.log del pcbdsz.log
if exist sort.txt del sort.txt
GOTO SINGLE
:SINGLE
COPY %3 E:\TEMP%NODE%
GOTO LOGOS
:LOGOS
FOR %%G IN (E:\TEMP%NODE%\*.GIF) DO CPASTE C:\PCB\COMMENT.EXT %%G
FOR %%Z IN (E:\TEMP%NODE%\*.ZIP) DO PKZIP -a %%Z C:\PCB\BBSAD.TXT
FOR %%A IN (E:\TEMP%NODE%\*.ARJ) DO ARJ a -we:\temp -jh2048 %%A C:\PCB\BBSAD.TXT
FOR %%L IN (E:\TEMP%NODE%\*.LZH) DO LHA a %%L C:\PCB\BBSAD.TXT
FOR %%S IN (E:\TEMP%NODE%\*.ZIP) DO STRIPZIP %%S
FOR %%Z IN (E:\TEMP%NODE%\*.ZIP) DO ZIPLOGO %%Z
GOTO SEND
:SEND
for %%f in (E:\temp%NODE%\*.*) do dsz sx -k %%f
if errorlevel == 1 goto ABORTED
goto CLEANUP
:ABORTED
copy pcberr.old pcberr.fil
GOTO CLEANUP
:CLEANUP
if exist pcbdsz.lst del pcbdsz.lst
if exist sort.txt del sort.txt
For %%D In (E:\Temp%NODE%\*.*) DO Del %%D
goto end
:end