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 (4)

  • Damian 11 enero, 2016

    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

    Reply
    • Carlos Dk 20 enero, 2016

      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

      Reply
  • Pedro Rodríguez 19 julio, 2017

    Sencillo y poderoso, muchas gracias.

    Reply
    • Carlos Dk 1 agosto, 2017

      Gracias a ti. Rápido 🙂

      Reply

Leave a comment

Sign in to post your comment or sine up if you dont have any account.

This site uses Akismet to reduce spam. Learn how your comment data is processed.

Tu software de gestión


Últimas preguntas:

Logo Dkreativo
Vertutoriales