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 %>