Leer archivos de un directorio con vb6 (visual basic 6)
Bienvenidos a VerTutoriales.com, en este artículo speed, os voy a dejar el código de como recorrer un directorio y mostrar todos los ficheros. Aunque en nuestro ejemplo vamos a mostrar todos los archivos PDFs de la carpeta actual.
Para ello utilizamos la función Dir() que trae visual basic 6 a la cual se le pasa un string con la ruta y el tipo de fichero. Os dejo el ejemplo:
Dim sArchivo As String
sArchivo = Dir(app.path & “\*.pdf”)
Do While sArchivo <> “”
List1.AddItem sArchivo
sArchivo = Dir
Loop
Como podéis ver, el código es muy sencillo, solo estamos declarando la variable sArchivo de tipo cadena y le asignamos el valor de Dir, esta nos devolverá cada uno de los ficheros, la primera asignación es para decir de donde ha de tomar los ficheros y el tipo y la siguiente llamada nos irá devolviendo de forma secuencial cada uno de los ficheros (que ordena por nombre).
Se me olvidaba, el List1, es un listitem en el que estoy añadiendo los archivos leidos, es simplemente como ejemplo, pero vosotros lo podéis utilizar para lo que queráis.
Espero que os sea util, si tenéis alguna duda comentad 🙂
Un saludo!
Comments
Hola!! quisiera saber si hay alguna manera de leer los archivos de forma ordenada peor numericamente ya que cuando los ordena alfabeticamente el orden de lectura queda 1,100,1000,2,200,3,300
en vez de 1,2,3,…,100,…,200
el orden es “alfabético” si los ficheros no los creas tú y te vienen así, se me ocurre que puedas crearte una función que rellene una cadena con 00000 por delante y luego cortes la cadena para que así puedas ordenarlos tú “a mano”. Algo en pseudocódigo:
Array = ficheros directorio
Recorro array
nombre = “000000000” + nombre;
nuevoArray = right(nombre, 10) //esto toma la cadena del nombre por la derecha con los números que sean reales.
fin recorrer
Ordeno nuevoArray
Abro los ficheros con el nombreArray
Sencillo y poderoso, muchas gracias.
Gracias a ti. Rápido 🙂