Pregunta: | 1546 - CREAR EL ARBOL DE DIRECTORIO Y ARCHIVOS DEL DISCO DURO |
Autor: | Pedro Zelada |
Como puedo crear el arbol de directorios y archivos en un control Treeview. ? |
Respuesta: | Pedro |
Esto es una pequeño ejemplo. Espero te sirva de Ayuda. Un saludo ´Objeto FileSystemObject global Dim DirSys As New FileSystemObject ´Al cargar el formulario Private Sub Form_Load() Dim Unidad As Drive ´ Recorremos todas las unidades For Each Unidad In DirSys.Drives ´ si la unidad está preparada If Unidad.IsReady Then ´ la exploramos añadiendo un elemento ´ al TreeView con el nombre de volumen Explora Unidad.Path, ArbolCarpetas.Nodes.Add( _ , , , Unidad.VolumeName + " (" + _ Unidad.Path + ")") Else ´ si no está preparada ´ añadimos un elemento con la letra ArbolCarpetas.Nodes.Add , , , Unidad.Path End If Next End Sub ´ Si el formulario cambia de tamaño Private Sub Form_Resize() ´ ajustamos el TreeView ArbolCarpetas.Move 0, 0, ScaleWidth, ScaleHeight End Sub ´ Este procedimiento explora de forma recursiva la ´ carpeta que recibe como primer parámetro, añadiendo ´ hijos a partir del nodo que recibe como segundo Private Sub Explora(Raiz As String, Nodo As Node) Dim Carpeta As Folder, SubCarpeta As Folder ´ obtenemos la carpeta Set Carpeta = DirSys.GetFolder(Raiz) ´ recorremos todas las subcarpetas For Each SubCarpeta In Carpeta.SubFolders ´ explorándolas de forma recursiva Explora SubCarpeta.Path, ArbolCarpetas.Nodes.Add( _ Nodo, tvwChild, , SubCarpeta.Name) Next End Sub |