Tänkte göra en sida som listar alla kataloger och filer i en viss katalog men vet inte hur jag ska göra för att lösa att den ska skriva upp alla kataloger.

<code>
<%
Dim fso, f, f1, fc, s

folder=server.mappath("\")

Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(folder)
Set fc = f.SubFolders

For Each f1 in fc
response.write "<B>" & f1.name & "</B><BR>"
Next
Set fc = f.Files
For Each f1 in fc
response.write f1.name & "<BR>"
Next
%>
</code>

Detta borde kunna fungera.

/Johan