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!


Carlos Dk

Apasionado por la enseñanza y el SEO

4 comentarios sobre “Leer archivos de un directorio con vb6 (visual basic 6)

  • el 11 enero, 2016 a las 11:59 pm
    Permalink

    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

    Respuesta
    • el 20 enero, 2016 a las 1:46 pm
      Permalink

      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

      Respuesta
  • el 19 julio, 2017 a las 1:09 am
    Permalink

    Sencillo y poderoso, muchas gracias.

    Respuesta

Deja un comentario

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

Este sitio usa Akismet para reducir el spam. Aprende cómo se procesan los datos de tus comentarios.