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
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
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