extensiones

[sdnsdlm]

Hola,

No sé si se podrá hacer de una manera más eficiente, pero...

Private Sub rellenaLista(dim trayCarpeta as string)
Dim nomArchivo As String
nomArchivo = Dir$(trayCarpeta & "\*.txt", vbArchive)
Do While Len(nomArchivo)
tuLista.addItem nomArchivo
nomArchivo = Dir$
Loop
End Sub

Es muy cutre pero funciona. Varias mejoras que te puedes plantear:
- Pasar la extensión como parámetro y así te sirve para filtrado de cualquier tipo de extensión.
- Controlar si la trayectoria de la carpeta la pasas como cadena terminada en \ o no. Ya he viso que he supuesto que NO, pero bueno, se puede controlar con un Right(trayCarpeta,1)<>"\" then trayCarpeta=trayCarpeta & "\"
- No es recursiva, es decir, no se mete en los subdirectorios, si quisieras eso tendrías que trabajar sobre una función recursiva.

No sé, como piedra de toque creo que te puede servir.