directory procedura

Inserire In referenze
Sistem.Collections
Sistem.Collections.Generic

e inserire nel modulo della funzione:
Imports System.IO



Sub DisplayDirTree(ByVal path As String)
Console.WriteLine(path)
For Each dirName As String In Directory.GetDirectories(path)
DisplayDirTree(dirName)
Next
End Sub