subdirs lezen uit dir

[Leentje]

Hoi,

heeft er iemand een ASP-scriptje
dat de subdirs kan lezen en weergeven

concreet:
er is een directorie "test" op de webserver
in de map "test" staan twee subdirectories, nl. "subdir1" en "subdir2"
ik plaats de asp-pagina in de dir "test"
en bij openen zie ik in de pagina twee regels, nl.
subdir1
subdir2
weliswaar enkel de namen van de subdir
dus niet
xxxxx.nl/wwwroot/test/subdir1
xxxxx.nl/wwwroot/test/subdir2

is dit mogelijk en zo ja, wie kan me het scriptje bezorgen
met dank

Leentje

[Martin]

Hieronder volgt een reactie op dit bericht:
> Hoi,
>
> heeft er iemand een ASP-scriptje
> dat de subdirs kan lezen en weergeven

Ik ken er wel een in PHP:

http://www.xenox-designs.net/index/downloads/4/1/

Gr. Martin.

--
Gratis je eigen radiozender, een muziek cd branden en meer...
http://winampnederlands.nl/

[Mark van Ketel]

On 31-8-2006 2:22, Leentje wrote:
> Hoi,
>
> heeft er iemand een ASP-scriptje
> dat de subdirs kan lezen en weergeven
>
> concreet:
> er is een directorie "test" op de webserver
> in de map "test" staan twee subdirectories, nl. "subdir1" en "subdir2"
> ik plaats de asp-pagina in de dir "test"
> en bij openen zie ik in de pagina twee regels, nl.
> subdir1
> subdir2
> weliswaar enkel de namen van de subdir
> dus niet
> xxxxx.nl/wwwroot/test/subdir1
> xxxxx.nl/wwwroot/test/subdir2
>
> is dit mogelijk en zo ja, wie kan me het scriptje bezorgen
> met dank

Is goed mogelijk, zoiets als:
http://www.aspfaq.com/treeview/ ?



Mark

--
weblog : http://www.masadsign.nl/logout/

[Leentje]

<knip>

Bedankt, toch heb ik nog wat verder gegoogeld en gevonden wat ik zocht
Enkele aanpassingen aangebracht en het werkt perfect

Hier is het scriptje:

<%
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set folders = objFSO.GetFolder(server.MapPath("./"))
Set subFolders = folders.SubFolders
Dim map
%>

<select name="directories">
<% For Each map in subFolders %>
<option value="<% = map.name %>"><% = map.name %></option>
<% Next %>
</select>

<%
Set objFSO = Nothing
Set folders = Nothing
Set subFolders = Nothing
%>