Recorrer archivos de un directorio

pep
23 de Enero del 2008
Dando la ruta de un directorio, como se puede hacer un recorrido por los archivos del mismo tipo que haya en ese directorio? para sacar un listado

Gracias por la ayuda

Sergi
23 de Enero del 2008
¿En modo consola?

mvallejos
23 de Enero del 2008
Eso se puede hacer con la función Dir
Por ejemplo, vamos a listar todos los archivos Txt del directorio actual en un ListBox

Dim Archivo as String
Dim PathInicial as String

PathInicial = App.Path
' Primer archivo
Archivo = Dir(PathInicial & "*.txt")
Do While Archivo <> ""
List1.AddItem Archivo
Archivo = Dir$ ' Siguiente archivo
Loop

Un par de observaciones

La funcion Dir retorna el nombre de los archivos que encuenta, sin el Path o ruta

La funcion Dir no sirve para rutinas recursivas, es decir, si necesitaras recorrer carpetas con subcarpetas indefinidamente, Dir no serviría.

Saludos