Elencare tutte le directory e sotto directory di una cartella

[Gluck74]

Dim path As String = Server.MapPath("~")
Dim InformazioniSuDirectory As New DirectoryInfo(path)
Dim ListaDirectories As DirectoryInfo() = InformazioniSuDirectory.GetDirectories()  'senza *.*
For Each XDIR As DirectoryInfo In ListaDirectories
      ' tuo codice per creare ddl
      Dim listaFile as FileInfo() = XDIR.GetFiles() 'senza *.* prende tutti i file
Next