Per ottenere l' elenco dei files
Dim pathCompletoDeiFiles() As String = System.IO.Directory.GetFiles(directoryPath)

per avere l'elenco delle sottocartelle:

Dim directories() As String = System.IO.Directory.GetDirectories(directoryPath)