---

Hey gruppen

Jeg ved at man med FSO kan få lavet en liste over alle filer i et bibliotek
på denne måde:

<%
Dim folder, FSO, fold, drv
folder = "c:\inetpub\wwwroot"

set FSO = Server.CreateObject("Scripting.FileSystemObject")
set Fold = FSO.getfolder(folder)
for each file in fold.files
Response.Write "<a href='" & file.name & "'>" & file.name &
"</a><BR>"
Next
set Fold = nothing
set folder = nothing
%>

Men hvordan laver jeg en liste over under-bibliotekerne??

På forhånd tak.
Søren Pedersen

---

"Søren "Pengman" Pedersen" <pengmeister@hotmail.com> wrote

I dit eksisterende script gennemløber du folderens files collection, du skal
blot lave en løkke mere der gennemløber den Subfolders collection der er på
folder objektet.

Noget ala nedenstående:

> <%
> Dim folder, FSO, fold, drv
> folder = "c:\inetpub\wwwroot"
>
> set FSO = Server.CreateObject("Scripting.FileSystemObject")
> set Fold = FSO.getfolder(folder)

for each folder in fold.SubFolders
Response.Write "<a href='" & folder.name & "'>" & folder.name &>
"</a><BR>"
Next

> for each file in fold.files
> Response.Write "<a href='" & file.name & "'>" & file.name &
> "</a><BR>"
> Next
> set Fold = nothing
> %>

For et eksempel på brug se på:
<http://www.advice.dk/jakob/stifinder/>

--
Jakob Andersen

---

> blot lave en løkke mere der gennemløber den Subfolders collection der er
på
> folder objektet.
> Noget ala nedenstående:
> for each folder in fold.SubFolders

Det var præcist det med at det hedder "SubFolders" jeg ikke kunne finde ud
af - takker

> For et eksempel på brug se på:
> <http://www.advice.dk/jakob/stifinder/>

Det er fais ganske smart det der...

Takker for hjælpen - Søren