Buenas tardes,
Me podrían ayudar con un código que busque en un directorio específico un texto dentro de un archivo yluego mueste en un FILELISTBOX los archivos encontrados.

Dicho en otras palabras, Lo que intento esbuscar en una carpeta todos los documentos (*.doc) que contengan en su contenido un texto especíifo y luego muestre los resultados en un Filelistbox.

De antemano muchas gracias por su colaboracion.

Ricardo

Podrías abrir los archivos uno a uno y comprobar el texto.
El problema de esto es que solo sirve para archivos textuales. Te sería muy complicado hacerlo con binarios pero quizás encuentres alguna DLL o convertidor. En el Word 2007 la cosa es más fácil. Simplemente es un ZIP con archivos XML. Este código sirve para buscar cadenas de texto en los archivos del FileListBox:



Private Sub Command1_Click()
Dim I As Long 'Definimos las variables
Dim Libre As Integer
Dim Cadena As String
Dim Busqueda As String

Busqueda = Text1.Text 'Lo que vamos a buscar está en el Text1
ProgressBar1.Min = 0
ProgressBar1.Max = File1.ListCount - 1 'Se inicializa la barra de progreso.
List1.Clear 'Se inicializa la lista de resultados.
Libre = VBA.FreeFile 'Librerepresentará el primer canal libre de archivo.

For I = 0 To File1.ListCount 'Pasar por todos los archivos desde el primero hasta el último.
Open File1.List(I) For Input As #Libre 'Abre el archivoI en el List en el primer canal libre
File1.ListIndex = I
Do While Not EOF(Libre)
Line Input #Libre, Cadena 'Leer datos del archivo
If VBA.InStr(1, Cadena, Busqueda) <> 0 Then 'Sise encuentra la cadena
List1.AddItem (File1.Path & "\" & File1.FileName) 'Añadela a la lísta de resultados
Exit Do 'elarchivo no puede repetirse en la lista, no buscar más en su interior.
End If
Loop

ProgressBar1.Value = I 'actualiza el estado de la barra de progreso
DoEvents 'Evita que el programa deje de responder si hay muchos archivos.
Close #Libre
Next I
End Sub

Pon un botón (Command1), un ListBox (List1) para los resultados , un Text1 para introducir el texto y un progressbar para indicar el progreso.
Para probarlo mete el DOC en un directorio con muchos archivos.


Salu2 espero que te sirva

PD: Pruébalo y cuentame a ver si te ha funcionado con el Word.Edited by: Abeldigital32

Muchas gracias pero no he tenido éxito. Sale error... creo que el codigo sería solo para extensiones .txt

Alguna otra sugerencia?

Saludos

Una sugerencia. Create una macro buscando un texto cualquiera desde el wordd. Copias y pegás el código.

Luego usá el código anterior que te dieron para buscar los archivos

saludos

Lo he comprobado. Funciona en ejecutables y textos pero no en documentos de word. Word inserta caracteres de control entre las palabras para indicar el formato.... y esopuede provocar errores o que no encuentre el texto buscado.

Utiliza una macro con un código parecido como te ha dicho el amigo Luciano

Salu2