Una solucion posible y facil seria listar las capertas de C:\Documents and Settings
Código:
For Each carpeta In My.Computer.FileSystem.GetDirectories("C:\Documents and Settings", FileIO.SearchOption.SearchAllSubDirectories)
ListBox1.Items.Add(carpeta)
Next
Espero que te sirva