extdiz2.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
set workdir=c:\temp\
echo.>%workdir%nfiles.bbs
echo %_cwds>>%workdir%nfiles.bbs
echo.>>%workdir%nfiles.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
if %@ext[%a] == ION goto dort
if %@ext[%a] == ion goto dort

echo *** %@format[.12,%@upper[%a]                ] - [%@filesize[%a,k]kb] - [%@filedate[%a],%@filetime[%a]] >> %currdir%
gus %a file_id.diz %workdir% >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%nfiles.bbs
del %workdir%file_id.diz
echo. >> %currdir%
return