lopezatienza.es

Unidades de almacenamiento:

System Environment.GetlogicalDrives 'Recorrer unidades logicas del sistema

Dim unidades() As String 'Se crea un array tipo string para contener las unidades

unidades = System Environment.GetlogicalDrives 'Se toman las unidades del sistema

Directorios:

Dim directorios As New DirectoryInfo(unidad) 'Se crea un tipo DirectoryInfo para contener las carpetas

Dim directo() As DirectoryInfo 'Se crea un array tipo DirectoryInfo para almacenar las carpetas

directo=directorios.GetDirectories 'Se insertan en el array

Nodos en TreeViews:

Se deberá introducir un TreeView al formulario en vista diseño.

Dim nodos As TreeNode 'Se crea una variable tipo TreeNode

nodos=new TreeNode(nombre,imagen) 'Se crea el tipo TreeNode pasándole como parámetros nombre e imagen

Sub treeview_AfterSelect(Byval sender, Byval e...) 'Se crea el evento de después de seleccionar el TreeView

e.Node 'Hace referencia a los elementos del TreeView

e.Node.IsExpanded 'Para mirar si esta expandido

Dim subdirectorio as DirectoryInfo

subdirectorio= New DirectoryInfo (e.Node.FullName) 'Tomo el nombre completo del nodo

Dim subdire() As directoryInfo

subdire=subdirectorio.getDirectories

e.Node.Add(elemento)

Archivos:

Dim archivos() As FileInfo 'Permite trabajar con archivos

archivos=Subdirectorio.GetFiles  Dim archivo As FileInfo