vb.net Buscar archivos en subdirectorios
La programación de Vb.net busca todos los archivos en el directorio especificado y los archivos en sus subdirectorios, como se muestra a continuación: ''=================== = ===========================
''Nombre:?FindPath
'' Función :?Encontrar todos los archivos en el directorio especificado y sus subdirectorios
'''Parámetros: strPath?''El directorio a buscar,
'''strFiles?''' Buffer de resultados de búsqueda, matriz dinámica de tipo String?''', preinicializada cuando se llama, como Redim?strFiles(0)
''FileCount?Se utiliza para devolver el número de archivos
''===============================================
Público?Sub?FindPath( ByVal?strPath?As?String, ?strFiles()?As?String, ?FileCount?As?Long)
Dim?strDirs() Como ?String
Dim?strResultAs?String
Dim?FileLimitAs?Long
Dim?dirLimitAs?Long
Dim?dirCountAs?Long
Dim?IAs?Long
FileLimit =?UBound(strFiles)? ?1
dirLimit?=?0
Si? Right$(strPath,?1)?lt;gt;?" /"?
If?Right$(strPath)?
strResult?=?Dir(strPath,?vbDirectory ?vbSystem? ?vbReadOnly? ?vbHidden? ?vbNormal? ?vbArchive)
¿Mientras?Y?strResult?lt;gt;?" "Entonces
Si (GetAttr(strPath?amp;?strResult)?And?vbDirectory?lt;gt;?vbDirectory?Then
If?FileCount?gt;=?FileLimit?Then
ReDim ?Preserve?strFiles(FileLimit? ?10)
FileLimit?=?if
strFiles(FileCount)=?strPath?amp;?strResult
FileCount= ?FileCount? ?1
Else
If?dirCount?gt;=?dirLimit?Then
ReDim?StrDirs(dirLimit? ?10)
dirLimit?=?dirLimit? ?10
Fin?if
strDirs(dirCount)? =?strPath?amp;?strResult
dirCount?=?dirCount ?1
Fin?Si
Fin?Si
strResult?=?Dir(,?vbDirectory? ?vbSystem? ?vbReadOnly? ?vbHidden? ?vbNormal? ?vbArchive)
Bucle
¿Para?I?=?0?A?dirCount?-?1
Llamar?FindPath(strDirs(I),?strFiles,?FileCount)
¿Siguiente?I
¿Fin?