Visual Basic - Dir()

Life is soft - evento anual de software empresarial
   
Vista:

Dir()

Publicado por claudio (25 intervenciones) el 17/09/2009 17:29:43
Como puedo poner todos los *.ocx que estan en una carpeta en un list1 con Dir("*.ocx") siendo que solo me devuelve el primer archivo ocx.
muchas gracias
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:Dir()

Publicado por jaime guerrero (361 intervenciones) el 17/09/2009 17:38:30
tienes que hacer esto

Sub RepasarCarpeta()
Dim strArchivoExcel As String
Dim strNombreCarpeta As String

'carpeta a repasar
strNombreCarpeta = "c:\"

'preparar carpeta
ChDir strNombreCarpeta
strArchivoExcel = Dir("*.ocx")

'repasamos los archivos de la carpeta
Do While strArchivoExcel <> ""
list1.additem strArchivoExcel
strArchivoExcel = Dir
i = i + 1
Loop

End Sub
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

GRACIAS JAIME DE DIEZ!

Publicado por Claudio (25 intervenciones) el 17/09/2009 22:34:43
GRACIAS JAIME DE DIEZ!
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