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