Pasted

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