Sección de códigos , trucos y ejemplos para visual basic

334 - Explorar unidades y directorios en un Treeview

Ejemplo para poder listar y cargar las unidades y carpetas del sistema en un control treeview con íconos

El ejemplo utiliza FileSystemObject ( Fso ) para poder listar en forma recursiva las unidades y directorios del sistema, e ir añadiendo y creando los nodos en el control Treeview

Los íconos los cargan en dos imageList, uno para las imágenes de 16 x 16 y en otro imagelist los íconos de 24 x 24 pixeles

Vista del formulario de ejemplo

vista del formulario de ejemplo en visual basic par apoder exporar los drive y carpetas del sistema en forma de árbol en el control treeview

Nota: para asignar el ícono a cada nodo, primero se averigua el tipo de unidad mediante la propiedad DriveType de Fso ( Cd rom, Floppy , unidad de red etc.. ), y una función retorna la clave para cada una que es la clave del ícono que está en el imageList ( función Get_Tipo_Drive ).

Es posible que si se tiene algún tipo de drive de los que no están agregados en el imagelist, es posible que de error. En ese caso agregar una imagen mas, ver que número retorna la propiedad DriveType, y asignarle una clave correspondiente en el imagelist y en la función que devuelve el Key ( función Get_Tipo_Drive )

Descargar ejemplo

Recursos vb 6.0 - Enlaces relacionados

Buscar en Recursos vb