Ejemplos usando el Api de windows para Visual basic

1 - Buscar archivos en un árbol de directorio con el Api SearchTreeForFile

Ejemplo que utiliza la función Api SearchTreeForFile , con la cual se puede buscar y verificar si existe un archivo en un árbol de directorio.

Descripción:

La función api SearchTreeForFile posee 3 parámetros:

'Función Api SearchTreeForFile
Private Declare Function SearchTreeForFile Lib "imagehlp" ( _
    ByVal RootPath As String, _
    ByVal InputPathName As String, _
    ByVal OutputPathBuffer As String) As Long

EL primero indica el directorio donde comenzar a buscar. El seguno el nombre del fichero y el tercero es una variable de retorno que indica el path completo donde se localizó el archivo en cuestión.

Controles

Para el ejemplo colocar 2 controles TextBox.

En el Text1 se deberá escribir el Path, en el Text2 el nombre del Archivo. También agregar un commandButton llamado Command1 para comenzar la búsqueda.

Nota: Este ejemplo busca en el directorio especificado, incluyendo los subdirectorios que contiene. Si la función Api SearchTreeForFile no lo encuentra retorna como valor un 0. Otra cosa cosa importante, es que esta función al buscar, no devuelve el control al programa, hasta que se halla terminado.

Código fuente en el formulario

Option Explicit 'Función Api SearchTreeForFile Private Declare Function SearchTreeForFile Lib "imagehlp" ( _ ByVal RootPath As String, _ ByVal InputPathName As String, _ ByVal OutputPathBuffer As String) As Long 'Constante que indica el tamaño del buffer de retorno para el path Private Const MAX_PATH = 260 ' botón para buscar el fichero en el árbol de directorios ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub Command1_Click() On Error GoTo Error_Sub Dim temp As String, Ret As Long Me.MousePointer = vbHourglass 'Creamos un bufer para almacenar el resultado osea del path temp = String(MAX_PATH, 0) 'Retorna 1 si se encontró ( text1 es el path, text2 es el archivo ) Ret = SearchTreeForFile(Text1, Text2, temp) ' encontrado If Ret <> 0 Then MsgBox "Archivo encontrado en: " + Left$(temp, InStr(1, _ temp, Chr$(0)) - 1), vbInformation ' no encontrado Else MsgBox "Archivo no encontrado", vbInformation End If Me.MousePointer = 0 Exit Sub Error_Sub: MsgBox Err.Description, vbCritical Me.MousePointer = 0 End Sub Private Sub Form_Load() Command1.Caption = " Buscar " Text1 = "c:\" Text2 = "explorer.exe" End Sub

Enlaces relacionados:

Buscar en Recursos vb