Buscar palabra en archivo xls,doc, pdf, txt y traer la ruta
Publicado por Andrés (27 intervenciones) el 27/02/2018 01:44:56
Buenas noches amigos...
Estoy realizando un proyecto y necesito sus ayudas urgente es para la U, tengo una carpeta en C:\ y una serie de archivos sean, doc, xls, txt, ppt, pdf (La carpeta, los archivos y su contenido tiene como nombre Inteligencia Artificial), ademas de ello, tengo los siguientes controles en el Form; un TextBox, un Button, y un ListBox.
Lo que quiero es que cuando coloque una palabra en el TexBox y después que le de en el Button Buscar pues me aparezca la ruta en el ListBox con la lista de los archivos que contiene esa palabra. Me funciona bien pero solo con los archivos ppt, pdf, y txt. Con los los archivos doc y xls no me funciona.
Quisiera que me colaboraran con lo siguiente:
1- Si el usuario le da en buscar sin haber colocado algo en la caja de texto, le aparezca un MessageBox indicando que pues por favor digite algo.
2- Por otro lado cuando le doy al Button Buscar sin haber colocado nada en el TextBox, me aparece todos los archivos en el ListBox que estan en la carpeta y no quiero que pase eso, si no lo que quiero es que igualmente me salga el MessageBox Por favor digite algo.
Amigos este es el código que tengo por ahora:
También les dejo el Proyecto Completo...
Gracias por su colaboración...
Estoy realizando un proyecto y necesito sus ayudas urgente es para la U, tengo una carpeta en C:\ y una serie de archivos sean, doc, xls, txt, ppt, pdf (La carpeta, los archivos y su contenido tiene como nombre Inteligencia Artificial), ademas de ello, tengo los siguientes controles en el Form; un TextBox, un Button, y un ListBox.
Lo que quiero es que cuando coloque una palabra en el TexBox y después que le de en el Button Buscar pues me aparezca la ruta en el ListBox con la lista de los archivos que contiene esa palabra. Me funciona bien pero solo con los archivos ppt, pdf, y txt. Con los los archivos doc y xls no me funciona.
Quisiera que me colaboraran con lo siguiente:
1- Si el usuario le da en buscar sin haber colocado algo en la caja de texto, le aparezca un MessageBox indicando que pues por favor digite algo.
2- Por otro lado cuando le doy al Button Buscar sin haber colocado nada en el TextBox, me aparece todos los archivos en el ListBox que estan en la carpeta y no quiero que pase eso, si no lo que quiero es que igualmente me salga el MessageBox Por favor digite algo.
Amigos este es el código que tengo por ahora:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Try
Dim Archivo As System.Collections.ObjectModel.ReadOnlyCollection(Of String)
Archivo = My.Computer.FileSystem.FindInFiles("C:\Inteligencia Artificial", TextBox1.Text, _
True, FileIO.SearchOption.SearchTopLevelOnly)
For Each name As String In Archivo
ListBox1.Items.Add(name)
Next
Catch oe As Exception
MsgBox(oe.Message, MsgBoxStyle.Critical)
End Try
End Sub
End Class
También les dejo el Proyecto Completo...
Gracias por su colaboración...
- I.A_Buscar_En_Archivos.rar(250,7 KB)
Valora esta pregunta
0
