Public Sub ListaArchivos(directorioinicial As String)
Dim file As String
Dim directoryName As String
Dim arrayDirectorio As New String[]
For Each directoryName In Dir(directorioinicial, "*", gb.Directory)
\'añado al array el subdirectorio encontrado
arrayDirectorio.add(directoryName)
Next
For Each directoryName In arrayDirectorio
For Each file In Dir(directorioinicial & "/" & directoryName)
Print "Directorio: ", directorioinicial & "/" & directoryName, "archivo: ", file
Next
\'ahora busco en el subdirectorio si hay más archivos... ¡¡ recursivamente !!
ListaArchivos(directorioinicial & "/" & directoryName)
Next
Return
End