Listning af sub.folder i et domæne

Vil du have listet både mapper og filer på samme side..?
Eller en side til mapper og en til filer..

<%
Dim fs, fldr, fil
set fs = server.createobject("Scripting.FilesystemObject")
set folder = fs.GetFolder(server.MapPath("."))

set file = folder.Files
for each fil in file
response.write fil.name&"<BR>"
next
%>
<B>Mapper</B> <BR>
<%

Set sfolder = folder.subfolders

For Each f1 in sfolder
  Response.write (f1.name & "<BR>")
Next
set folder = nothing
set file = nothing
set sfolder = nothing
set fs = nothing
%>

og hvis det så skal være med filer bagefter-...

<%
Dim fs, fldr, fil
set fs = server.createobject("Scripting.FilesystemObject")
set folder = fs.GetFolder(server.MapPath("."))

set file = folder.Files
for each fil in file
response.write fil.name&"<BR>"
next
%>
<B>Mapper</B> <BR>
<%

Set sfolder = folder.subfolders

For Each f1 in sfolder
  Response.write (f1.name & "<BR>")
Next

Set sfiles = folder.files
for each file in sfiles
response.write (file.name & "<br>")
next
set folder = nothing
set file = nothing
set sfolder = nothing
set fs = nothing
%>

hov...

Sorry.. Min fejl.

Hej Tofte + ellebaek

Tak for jeres svar

Kan man sorter så mapperne bliver vist først også filerne der efter

Hejhooo

Jep... Sådan her
<%
Dim fs, fldr, fil
set fs = server.createobject("Scripting.FilesystemObject")
set folder = fs.GetFolder(server.MapPath("."))
%>
<B>Mapper</B> <BR>
<%
Set sfolder = folder.subfolders

For Each f1 in sfolder
  Response.write (f1.name & "<BR>")
Next
response.write "<b>Filer</b><br>"
set file = folder.Files
for each fil in file
response.write fil.name&"<BR>"
next
%>
set folder = nothing
set file = nothing
set sfolder = nothing
set fs = nothing
%>

kan du bruge ovenstående ??

Takker for løsningerne... men det var den sidste fra ellebaek som jeg skulle bruge...
Men jeg ville gerne give begge to point så hvad med at jeg deler dem ...for i har jo begge svaret med det samme svar(((-: Hejhoo

jeg smider et svar også..
Så deler du som du synes ;-)