@echo off :: mkindex2.htm by Mike Bessy, revised by C.B. Falconer :: see "news://jpsoft.media3.net/138154%40jpsoft.support" *setlocal *unalias * ::on error goto done on break goto done goto start :: convert system datestamp in %ft to ISO in %ymd :isodate set ymd=%@year[%ft] iff %ymd LT 80 then set ymd=%@eval[%ymd+2000] elseiff &ymd LT 100 then set ymd=%@eval[%ymd+1900] else set ymd=%@right[4, 0%ymd] endiff set ymd=%ymd-%@right[2, 0%@month[%ft]]-%@right[2, 0%@day[%ft]] return :start set based=~cbfalconer/ set f="index.htm" set suppress=/[!*.ion index*.htm *.ba*] iff not ".%1." == ".." then set based=%@strip[%=", %1] set suppress=/[!index.htm %2&] endiff set d="%@full[.]" echo %=nUsage: %0 [Title prefix] [files to suppress] echo %=n%@upper[%0]: Hit Ctrl-C to abort or press any key to pause %@if[exist %f,re,]build %f from %d. cdd %d >!%f text >> %f endtext echo %based%%@filename[%d] directory >> %f text >> %f

endtext echo %based%%@filename[%d] >> %f text >> %f

Back to parent directory

endtext set n=0 dir %suppress /h /b | for %ii in (@con) ( echo %= >> %f echo %=%=%ii%=%= >> %f set ft=%@filedate["%ii"] gosub isodate echo %=
Name
Date
Size
Description
%ymd%= >> %f echo %=%@format[5,%@filesize["%ii",K]]K%= >> %f echo %=%@descript["%ii"] %= >>%f echo %= >> %f set n=%@inc[%n] ) echo %= >>%f set ft=%_date gosub isodate echo %=[%n files indexed on %ymd at %_time >> %f text >> %f by 4DOS! ]

Back to parent directory endtext echo %n files indexed on %ymd at %_time :done