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!

Te puede interesar:

4 comentarios

  • Damian commented on 11 enero, 2016 Reply

    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

    • Carlos Dk commented on 20 enero, 2016 Reply

      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

  • Pedro Rodríguez commented on 19 julio, 2017 Reply

    Sencillo y poderoso, muchas gracias.

    • Carlos Dk commented on 1 agosto, 2017 Reply

      Gracias a ti. Rápido 🙂

Deja un comentario

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *