Sección de controles Ocx para Visual basic , Dll , Activex

225 - cFindFiles - Módulo de código para búsqueda de archivos y otras funciones útiles

-- > Links

Descripción
Cómo usar el módulo
Ejemplos
Autor y créditos

Descripción

Este es un Módulo de clase para búsqueda de archivos. que muestra una forma de poder , mediante las funciones de windows FindFirstFile y FindNextFile, buscar en forma recursiva archivos incluyendo subdirectorios.

El módulo también contiene algunas funciones y opciones útiles ( aunque se podrían agregar muchas otras ) para poder buscar con mas posibilidades y acceder a otra información de los archivos, directorios y unidades

Las opciones que contiene y se pueden usar con el módulo son :

Buscar archivos en un directorio en concreto y también incluyendo subdirectorios.
Poder indicar en la búsqueda todas las extensiones, o las que se quieran.
Opción para detener y cancelar la búsqueda
Poder buscar, además de hacerlo en un path específico, en todas las unidades y drives presentes en el sistema
Parámetro opcional de búsqueda para poder Indicar el nombre de archivo, o parte del nombre
El módulo contiene 3 eventos para saber cuando se comienza la búsqueda, cuando se reciben los archivos, y cuando finaliza el proceso. Esto facilita la manipulación de controles del formulario, por ejemplo para poder activar y desactivar botones y otros controles, etc ..
Acceder a los archivos una vez finalizada la búsqueda, mediante una colección
Acceder a información básica de los Drives mediante una colección e incluye algunos métodos para recuperar información de las unidades, como por ejemplo el tipo ( CD, Removible, de red etc ..), la capacidad, el nombre de volumen, el ícono
Poder buscar por el tamaño mínimo y por el tamaño tamaño máximo.
Buscar por la fecha inicial y final de creación, modificación y último acceso
Una función para obtener el ícono asociado a los archivos
Algunas funciones para tratamiento de rutas y archivos : por ejemplo obtener solo la extensión, solo el nombre desde la ruta completa, poder compactar un path, obtener el Drive asociado a un path, comprobar si un archivo existe entre otras.

Algunas funciones que se podrían agregar y que no contiene el módulo son :

Poder Crear una propiedad o colección para incluir rutas que se deban ignorar
En el tema de las extensiones, crear una propiedad para ignorar las extensiones que se deseen.
Buscar por atributos.
Buscar dentro del contenido de los ficheros
Opción para excluir carpetas de sistema.

Como usar el módulo ?

Para usar el módulo de clase es simple.

Se debe crear una instancia con la palabra reservada de visual basic WithEvents para poder acceder a los eventos.

' -- Declarar la variable
Private WithEvents cFind As cFindFiles

Los eventos que posee son 3 :

' -----------------------------------------------------------------------------------------------
' \\ -- Evento de inicio de búsqueda
' -----------------------------------------------------------------------------------------------
Private Sub cFind_InitSearch()
    ' -- Evento que se puede usar para poder inicializar controles,
    ' -- variables etc antes de buscar
End Sub

' -----------------------------------------------------------------------------------------------
' \\ -- Evento que recibe los archivos mientras se busca
' -----------------------------------------------------------------------------------------------
Private Sub cFind_GetFile(ByVal sFileName As String)
    ' sFileName contiene la ruta completa del archivo
End Sub


' -----------------------------------------------------------------------------------------------
' \\ -- Evento cuando finaliza la búsqueda
' -----------------------------------------------------------------------------------------------
Private Sub cFind_EndSearch()
    ' -- Para poder mostrar los resultados,
    ' -- y otras acciones
End Sub

Para comenzar a buscar, se debe pasar al método Find los siguientes parámetros :

Call cFind.Find(" la Ruta ", " Las extensiones ")

Nota: Las extensiones se deben separar con el caracter ; como se hace con la propiedad Pattern del control File de Visual basic. Por ejemplo:

Esto busca todos los archivos de extensión xml y html en la unidad c

Call cFind.Find("c:\","*.xml;*.html")

Para detener la búsqueda se debe ejecutar el método Stop


' -----------------------------------------------------------------------------------------------
' \\ -- Botón para detener la búsqueda
' -----------------------------------------------------------------------------------------------
Private Sub cmdStop_Click()
    cFind.StopSearch
End Sub

Descargar ejemplos

Ejemplo 1

Este formulario realiza una búsqueda simple y muestra los resultados en un control listbox, y visualiza la cantidad de archivos encontrados.

Descargar

Ejemplo 2

Ejemplo para establecer los tamaños de archivos : Archivos pequeños, medianos, mayores a un 1 MB o el tamaño que se quiera (similar a la opción de windows. )

Nota. Para buscar cualquier tamaño, es decir que ignore el valor del tamaño en la búsqueda, las variables MaxFileSize y MinFileSize de deben establecer en 0. Por defecto , al iniciar el módulo se encuentran en 0, es decir que no es necesario asignar el valor a las variables

Descargar

Ejemplo 3

Muestra como buscar algunos archivos , y luego al seleccionar uno de la lista, ver la información del archivo : El tipo, la extensión, la unidad o volumen donde se encontró, el tamaño, la fecha de creación y de última modificación, y el ícono del archivo

Descargar

Ejemplo 4

Este ejemplo muestra como buscar en todos las unidades. Al abrir el diálogo de windows para seleccionar un path o recurso, también contiene un botón para que la búsqueda se pueda realizar en todas los drives. Nota. Ese módulo para abrir el diálogo de selección de directorio es opcional. Si se quiere buscar en todas las unidades se debe dejar vacío el parámetro path de la función Find

Descargar

Ejemplo 5

Simple ejemplo que usa la función LoadIcon del módulo, para recuperar los íconos asociados a cada Drive, luego los carga en un ImageList, para mostrarlos en un control ImageCombo.

Descargar

Ejemplo 6

Muestra como realizar búsquedas de archivos de acuerdo a la fecha de creación y fecha de modificación utilizando los controles de calendario de vb. para indicar la fecha inicial y fecha final para cada caso.

Descargar

Ejemplo 7

En este enlace hay un simple programa para generar listados y reportes de archivos en formato Html : crear reporte de archivos

Créditos

Autor : Luciano Lodola

Créditos :

La función base de búsqueda : http://allapi.mentalis.org/apilist/FindFirstFile.shtml
Algunas funciones para tratamiento de paths y archivos con el api : http://vbnet.mvps.org
Función para obtener las fechas de archivos con la api FileTimeToLocalFileTime y FileTimeToSystemTime : www.ask-4it.com/how-to-use-findfirstfile-win32-api-from-visual-basic-code-2-ca.html

Buscar en Recursos vb con Google