Per vedere i files contenuti in cartelle e sottocartelle puoi usare i controlli:
DriveListBox, DirListBox e FileListBox. Poni i predetti controlli su una form ed esegui il seguente esempio:

codice:
Private Sub Drive1_Change()
   ' Quando si cambia unità, imposta il percorso della directory:
   Dir1.Path = Drive1.Drive
End Sub
Private Sub Dir1_Change()
   ' Quando si cambiadirectory, imposta il percorso del file:
   File1.Path = Dir1.Path
End Sub