<%
dim fso,f,x

'Objecten
set fso=Server.CreateObject("Scripting.FileSystemObject")
set f=fso.GetFolder("c:\test\")

for each x in f.SubFolders
'Print the name of all subfolders in the test folder
Response.write(x.Name & "
")
next

set f=nothing
set fso=nothing
%>