Usa DriveListBox para que selecciones una unidad de Disco o de Red.
Drive1.Drive = "C:"
Usa también DirListBox para obtener las carpetas de una carpeta o unidad de disco
Dir1.Path = Drive1.Drive
En Dir1.ListCount puedes ver cuántas carpetas tiene la ruta especificada en Dir1.Path.
Para ver las carpetas que contenga dir1 puedes hacer
For i=1 to Dir1.ListCount
carpeta = Dir1.List(i-1)
Next i
Para conocer los archivos en una carpeta usa FileListBox
Para ver la lista de archivos de determinada carpeta, establece una ruta para este control...
File1.Path = Dir1.Path
o también puedes establecerla de forma directa
File1.Path = "c:\carpeta1\"
(no recuerdo si finaliza con \ o no... eso investígalo tu...)
De igual forma para conocer los archivos que contiene determinada ruta:
For i=1 to File1.ListCount
Text1.Text = File1.List(i-1)
Next i
Espero esto te sirva, saludos.