You can use the static GetFiles method of the Directory class & specify the last parameter as "SearchOption.AllDirectories". This will search recursively.

Code:
Dim myDirectories As String() = Directory.GetFiles("C:\", "*.*", SearchOption.AllDirectories)