inserire le n sottodir in n variabili

[gguida]

Ciao ragazzi,

ho bisogno di sapere tutte le sottodir di una cartella e di inserirle ogni una in una variabile diversa.

Con questo leggo e stampo tutte le sotto dit:

Set fs = Server.CreateObject ( "Scripting.FileSystemObject" )
                   Set dir = fs.GetFolder (server.mappath(tuadirserver))
                   For Each ndir In dir.SubFolders
                   Response.Write( ndir.Name )&" , "
                   Next
	               Set fs = Nothing
	               Set Dir = Nothing

poi come faccio ad inserirle in n variabili...????

grazie

[Corwin]

un array,magari ?

[albis]

dim arrSubFolders()
dim i
i=0
Set fs = Server.CreateObject ( "Scripting.FileSystemObject" )
Set dir = fs.GetFolder (server.mappath(tuadirserver))
For Each ndir In dir.SubFolders
Response.Write( ndir.Name )&" , "
redim preserve arrSubFolders(i)
arrSubFolders(i) = ndir.Name

i=i+1
Next
Set fs = Nothing
Set Dir = Nothing

[gguida]

grazie...della velocità...

ora vorrei inserire tutte le var dell' array in un combo box sia in value che in name, in modo da avere un elenco di tutte le sottodir...ma non ho idea di come si fà......

mi riaiutate per favore.......

grazie tanto....

[albis]

dim arrSubFolders()
dim i
i=0
Set fs = Server.CreateObject ( "Scripting.FileSystemObject" )
Set dir = fs.GetFolder (server.mappath(tuadirserver))
For Each ndir In dir.SubFolders
Response.Write( ndir.Name )&" , "
redim preserve arrSubFolders(i)
arrSubFolders(i) = ndir.Name

i=i+1
Next
Set fs = Nothing
Set Dir = Nothing



%>

<select id=select1 name=select1>
<%for i = 0 to UBound(arrSubFolders)%>
<option value="<%=arrSubFolders(i)%>" ><%=arrSubFolders(i)%></option>

<%next%>
</select>

[gguida]

perfetto....

grazie