Visual Basic para Aplicaciones - Contenido de un directorio

Life is soft - evento anual de software empresarial
 
Vista:

Contenido de un directorio

Publicado por el_mayk (9 intervenciones) el 23/06/2006 16:19:06
Que tal!

Existe alguna función que me dé el contenido de un directorio? Necesito saber el contenido de un directorio dado para después abrir los archivos que ahi se encuentren. Espero puedan ayudarme.

De antemano gracias y saludos.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Contenido de un directorio

Publicado por carlos (55 intervenciones) el 23/06/2006 18:43:20
Busca en la Ayuda de VB la funcion FindFile.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Contenido de un directorio

Publicado por carlos (55 intervenciones) el 23/06/2006 18:46:11
Disculpa, quise decir Objeto FoundFile.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

No funciona. ¿En qué estoy mal?

Publicado por el_mayk (9 intervenciones) el 26/06/2006 18:56:17
Que tal Carlos....

primero que nada gracias por la ayuda, pero estoy probando con el objeto que me dijiste pero no me funciona

mira, estoy usando esta rutina


ruta = "C:\"

Set fs = Application.FileSearch

With fs
.LookIn = ruta
.Filename = "*.*"
For I = 1 To .FoundFiles.Count
Debug.Print .FoundFiles(I)
Next I
End With

Y no me devuelve ningún archivo.

¿Qué estoy haciendo mal? a ver si me puedes seguir ayudando.

De antemano, otra vez gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:No funciona. ¿En qué estoy mal?

Publicado por Juan (9 intervenciones) el 05/09/2006 23:18:50
Te falto poner el: .execute
para que busque. Funciona.

sub test()

ruta = "C:\"

Set fs = Application.FileSearch

With fs
.LookIn = ruta
.Filename = "*.*"

.execute

For I = 1 To .FoundFiles.Count
Debug.Print .FoundFiles(I)
Next I

End With
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar