extdiz.btm

rem
rem EXTDIZ 0.8 - NDOS/4DOS BTM
rem
rem extrahiert FILE_ID.DIZ aus allen Archiven
rem und f�gt sie in die FILES.BBS ein....
rem
rem !! bei CDs bitte Pfad f�r FILES.BBS mit \ abgeben !!
rem zB extdiz e:\newfil\
rem
rem done in 10 mins by BiNGEN :-)
rem

@echo off
setlocal
del %1nfiles.bbs
for %a in (*.*) do gosub hier

endlocal
cancel

:hier
echo bearbeite %a
if %@ext[%a] == BBS goto dort
if %@ext[%a] == bbs goto dort

echo -=*]%@upper[%a][*=- [%@filesize[%a,k]kb] - [%@filedate[%a],%@filetime[%a]] >> %1nfiles.bbs

if %@ext[%a] == ZIP goto zip
if %@ext[%a] == zip goto zip
if %@ext[%a] == ARJ goto arj
if %@ext[%a] == arj goto arj
if %@ext[%a] == LZH goto lzh
if %@ext[%a] == lzh goto lzh
if %@ext[%a] == RAR goto rar
if %@ext[%a] == rar goto rar
if %@ext[%a] == UC2 goto uc2
if %@ext[%a] == uc2 goto uc2
if %@ext[%a] == SQZ goto sqz
if %@ext[%a] == sqz goto sqz

echo. >> %1nfiles.bbs

:dort
return

:zip
pkunzip %a file_id.diz %1 >nul
type %1file_id.diz
type %1file_id.diz>>%1nfiles.bbs
if not exist %1file_id.diz type files.bbs|find /i "%a" >>%1nfiles.bbs
del %1file_id.diz
echo. >> %1nfiles.bbs
goto dort

:arj
arj e -y %a %1 file_id.diz >nul
type %1file_id.diz
type %1file_id.diz>>%1nfiles.bbs
if not exist %1file_id.diz type files.bbs|find /i "%a" >>%1nfiles.bbs
del %1file_id.diz
echo. >> %1nfiles.bbs
goto dort

:lzh
lha e %a %1 file_id.diz >nul
type %1file_id.diz
type %1file_id.diz>>%1nfiles.bbs
if not exist %1file_id.diz type files.bbs|find /i "%a" >>%1nfiles.bbs
del %1file_id.diz
echo. >> %1nfiles.bbs
goto dort

:rar
rar e %a file_id.diz %1 >nul
type %1file_id.diz
type %1file_id.diz>>%1nfiles.bbs
if not exist %1file_id.diz type files.bbs|find /i "%a" >>%1nfiles.bbs
del %1file_id.diz
echo. >> %1nfiles.bbs
goto dort

:uc2
uuc e %a #%1 file_id.diz >nul
type %1file_id.diz
type %1file_id.diz>>%1nfiles.bbs
if not exist %1file_id.diz type files.bbs|find /i "%a" >>%1nfiles.bbs
del %1file_id.diz
echo. >> %1nfiles.bbs
goto dort

:sqz
sqz e %a file_id.diz %1 >nul
type %1file_id.diz
type %1file_id.diz>>%1nfiles.bbs
if not exist %1file_id.diz type files.bbs|find /i "%a" >>%1nfiles.bbs
del %1file_id.diz
echo. >> %1nfiles.bbs
goto dort