fbbs.btm

@echo off
setlocal
cls
echo.
echo *** FILES.BBS Filelistcreator by BiNGEN
echo (be sure that DESCCONV.COM is loaded!)
echo.
%1
set tsize=0
set tcount=0
set output=c:\filesbbs.lst
set currdir=c:\dir$$$.tmp
del %output
echo ��������������������������������������������������������������������������������>>%output
echo ��� Drivelabel: %@label[%_disk:]>>%output
echo ��� Filelist created at %_dow, %_date on %_time>>%output
echo ��������������������������������������������������������������������������������>>%output
global /i gosub process
echo.>>%output
echo ��������������������������������������������������������������������������������>>%output
echo ��� %tcount Total Files in %@comma[%tsize] Total Bytes.>>%output
echo ��������������������������������������������������������������������������������>>%output
echo.>>%output)
endlocal
goto exit
: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 (*.*) do (
iff "%a"=="files.bbs" .OR. "%a"=="FILES.BBS" .OR. "%a"=="descript.ion" .OR. "%a"=="DESCRIPT.ION" then
rem * do nothing
else
set fsize=%@eval[%fsize+%@filesize[%a,b]]
set fcount=%@eval[%fcount+1]
echo File Nr.: %fcount (%@full[%a])
dir %a /k/m >>%currdir
rem echo %@format[.12,%a                ]  %@filedate[%a] %@format[5,%@filesize[%a,k]]kb  %@descript[%a]>>%currdir
endiff)

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
:exit