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

230 - Buscar y listar archivos y directorios

Ejemplo que usa FileSystemObject para buscar y listar carpetas y archivos

Para listar los directorios se utiliza el objeto Folder y la colección SubFolders de FileSystemObject ( FSO ) y para los ficheros el objeto File con la colección Files

Al presionar un Commandbutton se listan en el primer Listbox todos los directorios del path especificado en el control TextBox. Al presionar en un Item del List1 se listan en el List2 los ficheros del mismo.

Colocar los siguientes controles: Un control Textbox para especificar la ruta, un Command1 , un List1 donde se irán listando y agregando los directorios , un control List2 para los archivos y también la referencia Microsoft Scripting Runtime para poder acceder a FSO

vista del formulario de ejemplo para buscar archivos y carpetas usando FSO

Código fuente a colocar en el formulario

'--------------------------------------------------- 'Agregar lña referencia a Microsoft Scripting Runtime '--------------------------------------------------- Private Sub Command1_Click() On Error GoTo errsub Dim Fso As FileSystemObject Dim El_Directorio As Folder Screen.MousePointer = vbHourglass DoEvents List1.Clear Set Fso = New FileSystemObject Set El_Directorio = Fso.GetFolder(Trim$(Text1)) List1.AddItem Trim$(Text1) ' Comienza a listar las carpetas Call Listar_Directorios(El_Directorio) Screen.MousePointer = vbDefault 'Error Exit Sub errsub: MsgBox Err.Description, vbCritical Screen.MousePointer = vbDefault End Sub Private Sub Listar_Directorios(ByVal El_Directorio As Folder) On Error GoTo errsub ' Variable de tipo Folder Dim Subdirectorio As Folder ' Recorre los subdirectorios For Each Subdirectorio In El_Directorio.SubFolders 'Agrega el path List1.AddItem El_Directorio.Path & "\" & Subdirectorio.Name 'sigue listando los directorios Listar_Directorios Subdirectorio Next Exit Sub 'Error errsub: 'Error de permiso denegado If Err.Number = 70 Then Resume Next ElseIf Err.Number = 91 Then Screen.MousePointer = vbDefault Exit Sub Else MsgBox Err.Description, vbCritical Exit Sub End If End Sub Private Sub Form_Load() Command1.Caption = " Listar " Text1 = "c:\a" End Sub Private Sub List1_Click() 'Variable de tipo FILE y FOLDER para listar los archivos de un path Dim El_Archivo As File Dim El_Directorio As Folder 'Si no hay items en el List sale If List1.ListIndex = -1 Then Exit Sub List2.Clear 'Nuevo objeto FileSystemObject Set Fso = New FileSystemObject ' Obtiene el directorio Set El_Directorio = Fso.GetFolder(List1.List(List1.ListIndex)) ' Lista los ficheros de esta carpeta For Each El_Archivo In El_Directorio.Files 'Añade la ruta List2.AddItem El_Archivo.Name Next El_Archivo End Sub

Nota: Al presionar un Item del List1, se busca y añaden en el List2 los archivos de ese directorio, pero no los archivos de los subdirectorios.

Para listar todos los archivos que cuelgan del path, reemplazar el código del evento click del List por el siguiente:

Recursos visual basic 6.0 - Enlaces relacionados

Recursos vb.net - enlaces relacionados

Buscar archivos y otros ejemplos en visual basic.net

Buscar en Recursos vb