Código:
Dim archivo As String
archivo = Dir("c:\prueba\*.doc")
Do While archivo <> ""
List1.AddItem archivo
archivo = Dir
Loop
El caso es que me funciona, pero quisiera que me lo hiciera de forma ordenada,es posible ordenarlos numericamente en el control List?
Los archivos que tengo son 100.doc,102.doc y 1001.doc pero siempre el 1001 me lo coloca despues del 100 en control list.