* utility to scan down directories and create an index.html that has references
* to the files in the directories
* Kevin Atkins, May 1, 2002
CLOSE ALL
CLEAR ALL
RELEASE ALL
*rootdir = "t:\webhost\20020430arly"
rootdir = "t:\webhost\animafortis"
CD (rootdir)
dircount = ADIR(webdirs, "*.*", "D")
thishtml = ""
DO webheader
FOR i = 1 TO dircount
thisdir = ALLTRIM(PROPER(webdirs[i,1]))
IF NOT "." $ thisdir
CD (rootdir + "\" + thisdir)
subdircount = ADIR(websubdir, "*.*", "ASHR")
DO websubdir
ENDIF
ENDFOR
DO webfooter
CD (rootdir)
=STRTOFILE(thishtml, "index.html")
CD (rootdir)
RETURN
PROCEDURE webheader
TEXT TO thishtml TEXTMERGE NOSHOW
MP3 files of Anima Fortis, BLEMF 2001 performance
MP3 files of Anima Fortis, BLEMF 2001 performance
ENDTEXT
RETURN
PROCEDURE websubdir
TEXT TO thishtml TEXTMERGE NOSHOW ADDITIVE
<>
|
ENDTEXT
FOR j = 1 TO subdircount
TEXT TO thishtml TEXTMERGE NOSHOW ADDITIVE
|
>
">
<>
|
<>
|
ENDTEXT
ENDFOR
TEXT TO thishtml TEXTMERGE NOSHOW ADDITIVE
|
|
ENDTEXT
RETURN
PROCEDURE webfooter
TEXT TO thishtml TEXTMERGE NOSHOW ADDITIVE
ENDTEXT
RETURN