Johannes Veje wrote in news:9q9c0d$2pef$1@news.cybercity.dk:
>> er det noget som
www.pf.dtu.dk/pfnyt/ ? Her er den venstre menu
>> defineret efter antallet af filer i en underfolder.
>>
> Ja, nemlig, men måske med et klik på menuen, for så at se hvad der
> ligge i flere forskellige underfolder. Dvs. at den menu som fremkommer
> fra start, måske er statisk oprettet, og det så først ved klik i menuen
> at den folder en undermenu ud, som har kigget ned i underfolderen for
> at se hvad der ligger. (man glemmer jo ikke at ændre menuen fremover
> så, hvis man ligger noget nyt på eller fjerner noget).
>
Du kan se teknikken på
http://stocholm.dk/asp/foldersandfiles.asp
Koden bag siden er
Set filesys = CreateObject("Scripting.FileSystemObject")
Set demofolder = filesys.GetFolder(server.mappath("."))
Set folcoll = demofolder.SubFolders
Response.Write "Subfolders in current folder<br><br>"
For Each subfol in folcoll
Response.Write "<a href=""" & subfol.name & """>" & subfol.name &
"</a><br>" Next
Set demofile = filesys.GetFolder(server.MapPath("."))
Set filecoll = demofile.Files
Response.Write "<br>Files in current folder<br><br>"
For Each fil in filecoll
filist = filist & fil.name & "<br>"
Next
Response.Write filist
--
Jesper Stocholm
http://stocholm.dk
ICQ: 13214885
MSN Messenger: jesperstocholm at hotmail dot com