Red de conocimiento informático - Aprendizaje de código fuente - Archivo de búsqueda de idioma simple

Archivo de búsqueda de idioma simple

Primero enumere el directorio raíz de la partición del disco duro y luego busque los archivos uno por uno según el directorio raíz. Finalmente, si se encuentra 123.dll, un cuadro de mensaje emergente mostrará "123.dll" y el código. es el siguiente:

Versión 2. Biblioteca de soporte eAPI. Subrutina_botón1_clic. Matriz de texto de variable local, tipo de texto, "0". Variable local i, matriz de texto de entero = lista de unidades (1) 'Aquí se enumera el directorio raíz de la partición del disco duro. El primer ciclo de conteo (obtiene miembros de la matriz (matriz de texto), i) atraviesa el directorio (matriz de texto [i]) maneja eventos (). cuenta(). La subrutina recorre el directorio. Directorio de parámetros, tipo de texto. Nombre del archivo de variables locales, texto. Matriz de directorio de variables locales, tipo de texto, "0". Variable local i, número entero. Tipo de archivo de variable local tipo de archivo = bit o (#archivo de archivo, #archivo de solo lectura, #archivo de sistema, #archivo oculto) nombre de archivo = archivo de búsqueda (directorio de referencia + "\*. *", tipo de archivo). Devuelve () si es verdadero (nombre de archivo = ""). Si es verdadero, finalice el juicio del bucle primero (). Si (bit con (tomar atributos de archivo (directorio de referencia + "\" + nombre de archivo), # subdirectorio) ≠ 0)

Agregar miembro (matriz de directorio, nombre de archivo) .De lo contrario

.Si es verdadero (nombre de archivo = "123.dll") 'Determinar si el archivo existe

Cuadro de mensaje ("123.dll",0,) 'Si existe , cuadro de mensaje emergente

return() 'Luego finaliza la búsqueda

.Finalizar si es verdadero

.Si finaliza el nombre del archivo = buscar archivo( ,tipo de archivo) .El ciclo de conteo finaliza (nombre de archivo ≠"") .El ciclo de conteo por primera vez (obtener miembro de la matriz (matriz de directorio), i) .Si es verdadero (matriz de directorio[i]≠"." y matriz de catálogo[ i]≠". .."")

Recorra el catálogo (consulte Catálogo + "\" + matriz de catálogo[i]). Si es verdadero, final del bucle de conteo()

El control solo necesita finalizar el código Un botón llamado Botón 1.