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?