Guarda questo esempio completo

http://www.elguille.info/VB/ejemplos/browsefolder.htm