SoloCodigo

Existen tres controles que permiten hacer esto:

DriveListBox
DirListBox y
FileListBox

Pega estos tres controles en el orden que te señalo, y agregar el siguiente codigo:

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub


Y Prueba

Se hace con el tri pero hay que cargarle los datos con un procedimiento recursivo usando el objecto FileSystemObject.

Espero te ayude

Salu2

Cyclop