cdlist.btm

@echo off
cls
setlocal
setdos /d"files.bbs"
echo.
echo ***
echo *** FILES.BBS/FILE_ID.DIZ Filelistcreator by BiNGEN
echo ***
echo *** (brauchbar fuer filelisten von cd-roms, die nicht
echo ***  in die bbs eingebunden sind aber eine files.bbs haben)
echo ***
echo *** Benoetigte Utilites:  GUS   - General Unpack Shell
echo ***                       DIZZY - FILE_ID.DIZ Reformator
echo ***
echo.
set tsize=0
set tcount=0
set workdir=c:\temp\
set listname=%@label[%_disk:]
set output=%workdir%%listname%.lst
set currdir=%workdir%dir$$$.tmp
del %output
echo ��������������������������������������������������������������������������������>>%output
echo ��� Drivelabel: %@label[%_disk:]>>%output
echo ��� Filelist created at %_dow, %_date on %_time>>%output
echo ��������������������������������������������������������������������������������>>%output
global gosub process
echo.>>%output
echo ��������������������������������������������������������������������������������>>%output
echo ��� %tcount Total Files in %@comma[%tsize] Total Bytes.>>%output
echo ��������������������������������������������������������������������������������>>%output
echo.>>%output)
setdos /d"descript.ion"
endlocal
cancel

:process
if exist files.bbs goto part2
echo.
echo Keine FILES.BBS in diesem Verzeichnis.
echo.
goto ende
:part2
echo ��������������������������������������������������������������������������������>>%currdir
echo ��� Path: %_cwds>>%currdir
if "%@descript[%_cwd*]"=="" goto weiter
echo.>>%currdir
dir %_cwd* /k/m>>%currdir
:weiter
echo ��������������������������������������������������������������������������������>>%currdir
set fsize=0
set fcount=0

for %a in (*.*) gosub mainloop
echo.>>%currdir
echo ��� %fcount Files in %@comma[%fsize] Bytes.>>%currdir
echo.>>%currdir)
set tsize=%@eval[%tsize+%fsize]
set tcount=%@eval[%tcount+%fcount]
copy %output+%currdir %output
del %currdir /q
:ende
return

:mainloop
iff "%a"=="files.bbs" .OR. "%a"=="FILES.BBS" .OR. "%a"=="descript.ion" .OR. "%a"=="DESCRIPT.ION" .OR. "%a"=="00_index.txt" then
 echo File wird nicht in die Fileliste aufgenommen!
else
 set fsize=%@eval[%fsize+%@filesize[%a,b]]
 set fcount=%@eval[%fcount+1]
 gosub extractor
 echo.>>%currdir%
endiff
return

:extractor
echo File Nr.: %fcount (%@full[%a])
echo *** %@format[.12,%@upper[%a]                ] - %@format[.8,[%@filesize[%a,k]kb]   ] - [%@filedate[%a]/%@filetime[%a]] >> %currdir%
gus %a file_id.diz %workdir% /n>nul
if exist %workdir%file_id.diz goto teil2
echo "%@descript[%a]">%workdir%file_id.diz
dizzy %workdir%file_id.diz
:teil2
type %workdir%file_id.diz
type %workdir%file_id.diz>>%currdir%
del %workdir%file_id.diz /q
return