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