Almacenar ficheros de un directorio

[albertogarci86]

Hola,
necesito almacenar los nombres de los ficheros de un directorio concreto en algun objeto de tal forma que luego pueda acceder al nombre de cada uno facilmente.

¿Alguna idea?

grcias

[Avellaneda]

Hola,

pues lo puedes hacer guardando el nombre de cada archivo en un txt mediante una recursividad de la función Dir.

[albertogarci86]

ejemplo en codigo??

[Avellaneda]

Bueno, antes de ponerte el ejemplo que solicitas, un par de observaciones:

Primero, en vez de pedir inmediatamente un ejemplo, deberías buscar información sobre lo que te indicaron (en este caso cómo grabar un archivo txt y qué hace la función Dir).

Segundo, cuando te contesten a una pregunta, suele ser de buena educación al menos, indicar si se resolvió el problema o no y no dar por callada la respuesta (ten en cuenta que a lo mejor otro forero tiene la misma duda).

Después de lo indicado, te pongo el ejemplo (que espero esta vez nos digas si resolvió tu inquietud o no).

Código vb:

Function GuardarArchivos(ByVal sDir As String)
Dim MisArchivos As String
MisArchivos = Dir(sDir, vbDirectory)
Dim sArchivo As String
sArchivo = App.Path & "\Prueba.txt"
Open sArchivo For Output As #1
Do While MisArchivos <> ""
   If MisArchivos <> "." And MisArchivos <> ".." Then
        If Not (GetAttr(sDir & MisArchivos) And vbDirectory) = vbDirectory Then
            Print #1, sDir & MisArchivos
      End If
   End If
   MisArchivos = Dir
Loop
Close #1
MsgBox "Se guardaron los archivos en " & sArchivo
End Function
 

El parámetro que le tienes que pasar a la función es la ruta completa de donde están los archivos.

Para recuperarlos, sólo abres el archivo txt con la instrucción Open para lectura.

[albertogarci86]

Hola Avellaneda,
gracias por tu interés pero todavía no tengo mi problema resuelto.

El problema es que quiero guardar todos los archivos del directorio en un array y no en un fichero.

¿Alguna idea?

Salu2

Bueno, gracias ya lo e resuelto primo