elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Usando Git para manipular el directorio de trabajo, el índice y commits (segunda parte)


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP) (Moderador: kub0x)
| | | |-+  [Manual] Buscar archivos con VB
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: [Manual] Buscar archivos con VB  (Leído 7,627 veces)
Mace Windu

Desconectado Desconectado

Mensajes: 29


Flaming Our Skills Team


Ver Perfil WWW
[Manual] Buscar archivos con VB
« en: 9 Enero 2009, 16:36 pm »

Bien, el bueno de SmartGenius me pidió una pequeña guía para buscar archivos con Visual Basic .NET y aquí os la dejo como regalo de reyes.

Lo primero que vamos a hacer será crear un proyecto del tipo Windows Forms y una interfaz similar a ésta:


Una vez echo esto, empezemos a codear. Lo primero de todo que vamos a escribir es el código del evento Click de nuestro botón para añadir el directorio correcto a buscar.
Código
  1. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  2. Dim Directorio As New FolderBrowserDialog
  3. If Directorio.ShowDialog = Windows.Forms.DialogResult.OK Then
  4. TextBox3.Text = Directorio.SelectedPath
  5. End If
  6. End Sub
Cómo podéis ver creamos un nuevo control FolderBrowserDialog y preguntamos si el usuario ha pulsado el botón Aceptar en él. Si hace esto, el directorio seleccionado será el contenido del cuadro de texto deseado.

Bien, ahora viene lo realmente interesante. Antes que nada os sugiero que importéis el namespace System.IO:

Código
  1. Imports System.IO

Vayamos al control Click de nuestro botón buscar. En nuestra miniaplicación se podrá buscar tanto por el nombre del fichero tanto por el contenido de éste. Para ello, preguntamos que RadioButton está seleccionado.
Código
  1. If RadioButton1.Checked = True Then
  2. ' Buscar por nombre
  3. Else
  4. ' Buscar por contenido
  5. End If
Empezemos por la segunda opción, la de buscar por contenido. Antes que nada, borramos todos los items de nuestro ListBox por si se encuentran otros resultados de búsquedas anteriores.

Código
  1. ListBox1.Items.Clear()

Por si surge algún error, utilizaremso la sentencia Try...Catch. En caso de que aparezca una excepción se creará un nuevo item en nuestro Listbox con la información del error.
Código
  1. Try
  2. Catch ex As Exception
  3. ListBox1.Items.Add(ex.Message)
  4. End Try
Lo primero que debemos hacer es declarar una variable que contendrá todos los archivos del directorio especificado. Para ello, gracias al método FindInFiles de la clase FileSystem lograremos dicha tarea.
Código
  1. Dim Archivos As System.Collections.ObjectModel.ReadOnlyCollection(Of String)
  2. Archivos = My.Computer.FileSystem.FindInFiles(TextBox3.Text, TextBox2.Text, True, FileIO.SearchOption.SearchAllSubDirectories)
En los parámetros de este método hemos especificado el directorio, el contenido a buscar, si distingue entre mayúsculas y minúsculas y si buscará en los subdirectorios, respectivamente.

Ahora sólo nos falta recorrer la colección y mostrar los resultados en nuestro Listbox.
Código
  1. For Each Archivo As String In Archivos
  2. ListBox1.Items.Add(Archivo)
  3. Next
El código deberá quedar así:
Código
  1. If RadioButton1.Checked = True Then
  2. ' Buscar por nombre
  3. Else
  4. ' Buscar por contenido
  5. ListBox1.Items.Clear()
  6. Try
  7. Dim Archivos As System.Collections.ObjectModel.ReadOnlyCollection(Of String)
  8. Archivos = My.Computer.FileSystem.FindInFiles(TextBox3.Text, TextBox2.Text, True, FileIO.SearchOption.SearchAllSubDirectories)
  9.  
  10. For Each Archivo As String In Archivos
  11. ListBox1.Items.Add(Archivo)
  12. Next
  13. Catch ex As Exception
  14. ListBox1.Items.Add(ex.Message)
  15. End Try
  16. End If
Bien, ya sólo nos falta que logre buscar por el nombre del archivo. Para que logre buscar también los subdirectorios del directorio especificado, crearemos un método recursivo, es decir, que se llamará así mismo tantas veces como subdirectorios existan. Tendrá un argumento que será el directorio donde buscará.

Creamos dos variables, una para almacenar el directorio actual y otra para el archivo actual.
A continuación escribimos otro bloque Try..Catch con la misma intención que antes. Esta vez, recorremos todos los elementos de la colección que devuelve el método GetDirectories de la clase Directory pasandole como argumento el directorio deseado. Para no consumir todos los recursos del sistema, utilizaremos el método DoEvents de la clase Application, aunque perfectamente para esta tarea podríamos crear un hilo o hebra. Haríamos un proceso análogo para los archivos del directorio con el método GetFiles de la clase Directory, y esta vez, añadiríamos cada archivo a nuestro ListBox. Al final, debería quedarnos una cosa así:
Código
  1. Private Sub BuscarDirectorio(ByVal sDirectorio As String)
  2. Dim Directorio As String, Archivo As String
  3. Try
  4. For Each Directorio In Directory.GetDirectories(sDirectorio)
  5. Application.DoEvents()
  6. For Each Archivo In Directory.GetFiles(Directorio, TextBox1.Text)
  7. ListBox1.Items.Add(Archivo)
  8. Next
  9. BuscarDirectorio(Directorio)
  10. Next
  11. Catch ex As System.Exception
  12. ListBox1.Items.Add(ex.Message)
  13. End Try
  14. End Sub
Ahora, en el evento click de nuestró botón buscar, debemos llamar al método anterior. Nos quedaría tal que así:
Código
  1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  2. If RadioButton1.Checked = True Then
  3. ListBox1.Items.Clear()
  4. BuscarDirectorio(TextBox3.Text)
  5. Else
  6. ListBox1.Items.Clear()
  7. Try
  8. Dim Archivos As System.Collections.ObjectModel.ReadOnlyCollection(Of String)
  9. Archivos = My.Computer.FileSystem.FindInFiles(TextBox3.Text, TextBox2.Text, True, FileIO.SearchOption.SearchAllSubDirectories)
  10.  
  11. For Each Archivo As String In Archivos
  12. ListBox1.Items.Add(Archivo)
  13. Next
  14.  
  15. Catch ex As Exception
  16. ListBox1.Items.Add(ex.Message)
  17. End Try
  18. End If
  19. End Sub
Ya para terminar, podemos hacer que en el evento SelectedIndexChanged de nuestro ListBox ocurra lo siguiente:
Código
  1. Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
  2. System.Diagnostics.Process.Start(ListBox1.SelectedItem.ToString())
  3. End Sub
Con ello conseguiremos que al dar click sobre un item de la lista se abra dicho archivo.

Lo bueno siempre termina, y esto no es una excepción :P. Espero que les haya gustado, y disfruten del día de hoy.

Salu2


En línea

invisible_hack


Desconectado Desconectado

Mensajes: 978


Invisible_Hack™ Nick Registrado ^^


Ver Perfil WWW
Re: [Manual] Buscar archivos con VB
« Respuesta #1 en: 9 Enero 2009, 16:49 pm »

Buen tutorial, aunque te agradeceria si también haces la correspondiente versión para la versión 6.0  :P


En línea

"Si no visitas mi blog, Chuck te dará una patada giratoria"
Mace Windu

Desconectado Desconectado

Mensajes: 29


Flaming Our Skills Team


Ver Perfil WWW
Re: [Manual] Buscar archivos con VB
« Respuesta #2 en: 9 Enero 2009, 16:56 pm »

Buen tutorial, aunque te agradeceria si también haces la correspondiente versión para la versión 6.0  :P

Como observarás, el .NET Framework nos facilita mucha tarea a los programadores de VB que migramos a .NET ;)

Salu2
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Como buscar un Integer en la memoria de forma manual?
GNU/Linux
WHK 4 3,236 Último mensaje 26 Abril 2015, 09:12 am
por scott_
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines