hallo, kunnen jullie mij nog eens helpen ?

met onderstaand script haal ik de namen van de subdirs uit de dir waar de
asp-pagina staat
nu zou ik graag de namen van die subdirs doorgeven aan variabelen

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

Dim x
For Each x in subFolders

--hier zouden dan de variabelen moeten gedeclareerd worden
--zoveel als dat er subfolders zijn

Next
%>

met andere woorden
als ik de variabelen manueel zou typen, wordt dat dit
Dim var1,var2,var3
var1 = subdir1
var2 = subdir2
var3 = subdir3
maar dat zou dus geautomatiseerd moeten zijn

ik hoop dat jullie begrijpen wat ik bedoel

met dank

leentje