Lista kataloger i VB.net

Så här listar man kataloger i VB.net:

 

files = System.IO.Directory.GetDirectories(FolderBrowserDialog1.SelectedPath)

For Each fname As String In files

MsgBox(fname)

Next