ci sono riuscito!!! posto il codice cosi se puo servire a qualcuno..

grazie ancora a tutti.

codice:
<%
dirName=server.MapPath("/aaa/")

' creo il FSO ed accedo alla singola cartella
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder( dirName )
set sf=folder.SubFolders

stringa = ""

For Each file in sf
   stringa = stringa & file.name
   stringa = stringa & vbCrLf
Next

Set folder=Nothing
Set fso=Nothing
%>