recursividad

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